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PREFACE 



This publication describes the object-time 
subroutine library used by the IBM DOS/VS 
COBOL compiler. It is intended for use by 
persons involved in library maintenance and 
by system programmers involved in altering 
the library for installations requiring 
such alteration. This publication 
supplements the subroutine listings and 
their comments, but it is not a substitute 
for them. The publication is divided into 
the following parts: 

• An introduction which describes the 
contents and the functions of the 
library and specifies the relationships 
between the library and the compiler 
and the library and the operating 
system. 

• A methods of operation section which 
describes the function of each 
subroutine in the library, the code 
used in the object program to interface 
with each subroutine, and the output 
(where applicable) of- each subroutine. 
This section is divided into two main 
parts: the subroutines for object-time 
program operations; the subroutines for 
object-time debugging operations; and 
the subroutines for object- time 
execution statistics. 



• A program organization section which 
consists of diagrams and flowcharts. 
The diagrams describe the flow of 
control, loading and calling 
dependencies, and virtual storage 
layouts in instances where several 
programs are present together in 
virtual storage. Flowcharts are 
provided for most of the data 
management subroutines, all of the 
subroutines for object-time debugging 
operations, and for other complex 
subroutines. 



A data areas section which describes 
the tables used fay the subroutines for 
object-time debugging operations and 
control blocks for VSAM subroutines. 



A diagnostic aids section which 
includes execution-time messages and 
error messages from the debugging 
subroutines, virtual storage layouts, 
information on locating DTF's and data, 
and special diagnostic aids for 
debugging subroutines. 



• A glossary of special terms. 
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Effective use of this manual requires an 
extensive knowledge of the IBM Assembler 
Language, DOS/VS System Control, DOS/VS 
COBOL and the IBM DOS/VS COBOL Compiler. 
Prerequisite and related publications 
include: 

IBM DOS/VS Operating Procedures . Order 
No. GC33-5378 

IBM OS/VS and DOS/VS Asse mbler Language 
Guide . Order No. GC33-U010 

IBM DOS/VS System Control Statements , 
Order No. 6C33-5376 

IB M DOS/VS System Utilities . Order 
No. GC 3 3- 5381 

IBM DOS/VS Supervisor and I/O Macros . 
Order No- GC33-5373 

IBM DOS/VS Access Method Services . Order 
No. GC33-5382 

IBM DOS/VS Data Management Guide . Order 
No. GC33-5372 

Prerequisite Program Product documents 
include: 

IBM DOS Fu ll American National Standard 
COBOL. Order No. GC28-6394 

IBM DOS/VS COBOL compiler and Library 
Programmer's Guide . Order No. SC28-6U78 

IBM DOS/VS COBOL Compiler and Library 
Installation Reference Material . Order 
No. SC28-6U79 



IBM DOS/VS COBOL Compiler Program Logic , 
Order No. LY28-6(»23 



The following publications provide 
detailed information on the IBM 3886 
Optical Character Reader: 



IBM 3886 Optical Character Reader 
General Information Manual . Order 
No. 6A21-91M6 

IBM 3886 Optical Character Reader Input 
Document Design and Specifications . 
Order No. GA21-91ti8 

DOS/VS Planning Guide for the IBM 388 6 
Optical Character Reader, Model 1 , Order 
No. GC21-5059 

The following publications provide 
information on the IBM DOS/VS Sort/Merge 
Program Product, Program Number 57U6-SM1, 
and the DOS Sort/Merge Prograir Product, 
Program Number 5743-SMl: 

IBM DOS/VS Sort/Merge General 
Information . Order No. GC33-4030 

IBM DOS/VS Sort/Merge Installation 
Reference Material . Order No. S933-U026 

IBM DOS Sort/Merge Programirer* s Guide , 
Order No. SC33-U018 

The titles and abstracts of related 
publications are listed in IBM System/ 360 
and System/ 370 Bioliography , Order 
No. GA22-6822. 
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Summary of Amendments Number 3 



Date of Publication: May 15, 1981 

Form of Publication: TNL LN20-9348 to LY28-6424-1 

Nev;: Program and Documentation 

The library has been expanded with the following new subroutines: 

ILBDCVB Convert to Binary 
ILBDSTG STRING 
ILBDUST UNSTRING 
ILBDINS INSPECT 
ILBDDTE DATE, DAY, and 

TIME 
ILBDCMM GETCORE/FREECORE 
ILBDACS Compare with Alternate 

Colatting Sequence 
ILBDSIO SAM I/O 
ILBDBUG Use-for-Debugging 

Declaratives 

The new documentation supplies explanatory text for these new routines, and 
supplies flowcharts where appropriate. In addition, these existing subroutines have been 
modified: ILBDGDO, ILBDSAE, ILBDMNS, ILBDVOC, ILBDVIO, ILBDSRT, ILBDMRG, 
ILBDMVE, ILBDSPA, ILBDDBG, and 1LBDMP24. 



Summary of Amendments Number 2 

Date of Publication: Decembers, 1976 

Form of Publication: TNL LN20-91 83 to LY28-6424-1 

IBM DOS/VS COBOL 

Maintenance: Documentation 
• Minor technical changes and additions have been made to the text. 



Summary of Amendments Number 1 

Date of Publication: March 15, 1974 
Form of Publication: Revision, LY28-6424-1 

Support of New CBL Statement Option 

New: Programming Feature 

Release 2 of the IBM DOS/VS COBOL Subroutine library supports the object- 
time execution statistics option COUNT/NOCOUNT. 

Support of SORT-OPTION IS data-name In SD Statement 

New: Programming Feature 

Release 2 of the DOS/VS COBOL Subroutine Library supports the SORT- 
OPTION IS data-name clause. This allows the programmer more flexibility in 
handling sort files and use of .SORT/MERGE program messages. 

ACCEPT Verb 

New: Progranuning Feature 

The ACCEPT verb library subroutine now translates lowercase input into the 
uppercase equivalents. 

Debug Common Area 

Maintenance: Documentation Only 

The debug common area has now been documented as a principal data area 
used by library subroutines. 
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SECTION It INTRODUCTION 



The IBM DOS/VS COBOL Library provides 
subroutines that can be link edited with 
object modules produced by the program 
product IBM DOS/VS COBOL Compiler (Program 
Number 5746-CBl). The library also 
provides subroutines that can be 
dynamically fetched during problem program 
execution. 



LIBRARY CONTENTS 



The compiler uses a number of subroutines 
to perform frequently required operations. 
Because these subroutines are too extensive 
to be efficiently placed into the object 
module whenever needed, they are stored in 
the relocatable library and included in the 
phase by the linkage editor. Exceptions to 
this are transient subroutines $$BCOBER, 
$$BC0BR1« $$BFCMUL, $$BCOB£M, and the 
SYMDMP subroutines, which are stored in the 
core image library. 

The COBOL Object-time Library contains 
subroutines to perform the following 
operations: 

• Internal data format conversion. 

• Arithmetic operations. 

• Input/Output operations. 

• Miscellaneous operations to support 
such statements as SEARCH or DISPLAY 
and specialized operations such as 
class tests or compares. 

• Internal data format conversions for 
input and output files coded in the 
American National standard Code for 
Information Interchange. X3.a-1968. 

• Generation of a formatted trace of the 
last procedures executed before an 
abnormal termination of a job in 
response to the specification of the 
flow trace option. The number of 
procedures to be traced is specified by 
the user. 

• Identification of the statement being 
executed. at the time of an abnormal 
termination of a job in response to the 
specification of the statement number 
option. The information includes the 
name of the program containing the 
statement and the nximber of the 
statement and of the verb being 



executed at the time of abnormal 
termination. 

• Generation of additional execution- time 
information for debugging purposes in 
response to the specification of the 
symbolic dump option. This information 
includes symbolic formatted dumps of 
named data areas taken dynamically at 
specified points in the Procedure 
Divisionf and a symbolic formatted d\3mp 
when a program terminates abnormally. 

A dump taken at abnormal termination 
consists of three parts: an abnormal 
termination message identifying the 
source statement causing the error, 
selected areas in the Task Global 
Table, and data items from the Data 
Division. Note that a dynamic dump, 
requested when a STOP RUN or GOBACK 
statement is encountered, produces, in 
effect, an "end-of-job" dump. 

• Generation of object-time execution 
statistics for debugging, testing, and 
optimization in response to the COUNT 
option. The statistics include a 
listing of the Procedure Division verbs 
with execution frequency information 
and an executable verb summary. The 
statistics are provided at normal and 
abnormal termination. 



ENVIRONMENTAL AND PHYSICAL CHARACTERISTICS 



The DOS/VS COBOL Subroutine Library is 
designed for use under the IBM DOS/vs 
Operating System with object modules 
produced by the DOS/VS cobol compiler, a 
DOS Release 29 is the minimum level 
required. 

The DOS/VS COBOL Subroutine Library is 
part of the DOS/VS core image and 
relocatable libraries, which must reside or 
a disk storage device. 

If the SYMDMP option is specified, the 
library subroutine called to supply the 
symbolic formatted d\unp requires that the 
dictionary of symbolic names and other 
information produced during compilation be 
present at execution time. This 
information is written on an additional 
work file designated as SYS005 during 
compilation. SYS005 may reside on either i 
tape or direct access device. The work 
file may be named according to the user's 
option at execution time. 
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OPERATIONAL CONS IDERATIONS 



Phases 50, 51, and Phase 60 or 64 of the 
DOS/VS COBOL Compiler generate the calls to 
the subroutines contained in the COBOL 
Object-time Library. (Note that Phase 60 
or 64 generates these calls in the 
initialization routines in the object 
module.) Parameters are passed to the 
subroutines in one of the following wayst 



• In general or floating-point registers. 

• As in-line constants (DCs) following 
the call. 



• In the WORKING CELL area of the Task 
Global Table (TGT) in the object 
module. 

The subroutines can return parameters in 
registers or in the WORKING CELL area. 



Note I References to the WORKING CELL area 
are in the form of a displacement from 
register 13 which points at execution time 
to the beginning of the Task Global Table. 
In the calling sequences in Section 2: 
"Method of Operation," the references are 
in the form: 

WORKA (length, 13) 
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SUBROUTINES FOR OBJECT TIME PROGRAM OPERATIONS 



The subroutines described below perforin 
frequently required program operations at 
object time. These operations include 
internal data format conversions, 
arithmetic operations, input/output 
operations, miscellaneous operations to 
support such statements as SEARCH or 
DISPLAY and specialized operations such as 
class tests or compares, and certain 
operations connected with the ASCII support 
feature of the compiler. 

Flowcharts are provided in "Section 2; 
Program Organization" for some of the 
subroutines. Each chart identifier appears 
in square brackets after the name of its 
subroutine. 



display purposes (variable length, from H 
to 20 bytes). 

STERLING REPORT : Sterling report items are 
internal decimal for computational 
purposes. They are right justified in a 
16-byte field. 

Note : The external floating-point (EF) 
number parameter code bits are: 

Bit Meaning, if on 

1-5 Not used 

6 Mantissa PICTURE sign is negative 

7 Exponent PICTURE sign is negative 

8 EF number has a real decimal 
point 



ARITHMETIC CONVERSION SUBROUTINES 



The subroutines described below perform the 
arithmetic conversions between the eight 
numeric data formats permitted in COBOL. 
The conversions from internal decimal to 
external decimal, from external decimal to 
internal decimal, and from internal decimal 
to report are done in-line and do not 
require use of the library. 

The following conventions are used for 
the conversion subroutine parameters: 

BINARY : Single words are in register 0; 
double words are in registers and 1. 

INTERNAL DECIMAL : The number is passed in 
the first 10 bytes of the WORKING CELL area 
in the Task Global Table (TGT). It is 
right justified with high-order zeros. 

EXTERNAL DECIMAL : The number is passed in 

the first 18 bytes of the WORKING CELL area 

in the TGT. It is right justified with 
high-order zeros. 

INTERNAL FLOATING-POINT : The number is 
long form in floating-point register 0. 

EXTERNAL FLOATING-POINT : The number is 
variable in length. For input to the 
subroutine, it is pointed to by general 
register 3. For output from the 
subroutine, it is in the WORKING CELL area 
in the TGT. 

STERLING NONREPORT : Sterling nonreport 
items are either internal decimal for 
computational purposes (right justified in 
a 16-byte field) or external decimal for 



Binary to Internal Decimal (ILEDBIDO) 



Operation : Converts a double precision 
binary number into a lO-byte internal 
decimal number. The binary number must be 
in register pair 0, 1 or 2, 3 or 4, 5. 

Linkage : 

L 15, =V (entry point) 
EALR ia,15 

Note: Substitute for entry point as 
follows: 

ILEDBIDO if binary number is in register 

pair 0, 1 
ILBDBIDl if binary number is in register 

pair 2, 3 
ILBDBID2 if binary number is in register 

pair 4, 5 

Output : A 10-byte internal decimal number 
starting at W0RKA(13), where 13 is the 
register pointing to the TGT. 



Binary to External Decimal (ILBDBIEO) 



Operation : Converts a double precision 
binary number into an 18-byte external 
decimal number. The binary number must be 
in register pair 0, 1 or 2, 3 or «», 5. 

Linkage : 

L 15, =V (entry point) 
EALR 14,15 
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Note : substitute for entry point as 
follows: 

ILBDBIEO if binary nximber is in register 

pair 0, 1 
ILBDBIEl if binary number is in register 

pair 2, 3 
ILBDBIE2 if binary number is in register 

pair U, 5 



Output ; An 18-byte external decimal number 
starting at W0RKA(13), where 13 is the 
register pointing to the TGT. 



Binary to Internal Floating-^Point 
(ILBDBIIO) 



Operation : converts a double precision 
binary number into a double precision 
floating-point number. 



Linkage : 

LM 
L 

BALR 
DC 



0»l«BI-n\3mber 

15,=V(ILBDBII0) 

14,15 

XL2* Decimals in BI niamber' 



Output : A double precision floating-point 
number in floating-point register 0. 



Internal and External Decimal to Internal 
Floating-Point (ILBDDCIO) 

Operation : Converts a 16-byte internal 
decimal number or an 18-byte external 
decimal number into a double precision 
internal floating-point number. Register 
13 points to the TGT. 

Linkage : 

For internal decimal: 

ZAP W0RKA(16, 13), ID-field 

L 15,»V(ILBDDCI1) 

BALR 14,15 

DC XL2* Decimals in ID number' 

For external decimal: 

MVC WORKA(18,13),ED-field 

L 15, »V( ILBDDCIO) 

BALR ll»«15 

DC XL2* Decimals in ED number* 

Output : A double precision internal 
floating-point number in floating-point 
register 0. 



Internal Floating-Point to Binary 
(ILBDIFBO) 



Operation : Converts a double precision 
internal floating-point number into either 
a binary number, or into a binary number 
and an exponent to the base 10, depending 
on where the subroutine is called from. 
The internal floating-point number is put 
into floating-point register 0. If the 
internal floating-point number is too big, 
the binary number is set to the maximiun. 
If the internal floating-point number is 
too small* the binary number is set to the 
minimum. No error indication is given. 

Linkage : 

LD 0,FP-number 

or 

SDR 0, 

LE 0,FP-n\amber 

Followed in either case by: 



L 

CNOP 
BALR 
DC 



Output : 
0,1. 



15,=V(ILBDIFB1) 

6,8 

14,15 

XL8* double precision floating- 
point number* (of the form 
10 '•■^X where X is the number of 
decimals in the result field) 



A binary number in register pair 



Note : If this sxibroutine is called by 
another subroutine, the linkage and output 
are as follows: 

If called by ILBDIFDO: 

Linkage : 

LD 0, Internal floating-point number 

LD 2, Decimals in result 

L 15, =V (ILBDIFBO) 

BALR 1U,15 



Output : 
0.1. 



A binary number in register pair 



If called by ILBDTEF3J 

Linkage : 

LD 0, Internal floating-point number 
LD 6, Digits in external floating- 
point mantissa 
L 15,V(ILBDIFB2) 
BALR 14,15 

Output : A binary number in register pair 
0,1, and a pOwer-of-10 exponent in register 
2. 
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Internal Floating-Point to Internal Decimal 
(ILBDIFDO) 



Operation : Converts a double precision 
internal floating-point number into a 
10-byte internal decimal number. If the 
internal floating-point number exceeds the 
maximum permissible length, register 15 is 
set to and a normal exit is taken. 

Linkage ; 

LD 0,rP-number 

or 
SDR 0,0 
LE 0,FP-number 

Followed in either case by: 

L 15, =V( ILBDIFDO) 

CNOP 6, 8 

BALR It, 15 

DC XLS • FP-number • 

(of the form 10**X where 

X is the n\amber of 

decimals in the result 

field) 



Output : A 10-byte internal decimal number 
starting at W0RKA<13) where register 13 
points to the TGT. 



Internal and External Decimal to Binary 
(ILBDIDBO) 



Operation : Converts a 10-byte internal 
decimal number or an 1 8-byte external 
decimal number into a double precision 
binary number. The decimal field starts at 
WORKAdS) where register 13 points to the 
TGT. 



Linkage : 

ZAP 

L 

BALR 



WORKA(10,13) , ID-field 
15,V(entry point) 
14,15 



Note : Substitute for entry point as 
follows: 

ILBDIDBO, if input is an internal 
decimal number 

ILBDIDBl, if input is an external 
decimal number 

Output : A double precision binary number 
in register pair 0,1. 



Decimal to Binary (ILBDCVBO), Binary to 
Decimal (ILBDCVBl) [AA} 

Operation ; The subroutine converts a 
signed, unsigned, or separate signed 
external decimal number or a signed or 
unsigned internal decimal number to binary 
and converts binary numbers back to 
external or internal decimal numbers. 

When the subroutine receives control at 
entry point ILBDCVBO, it initializes the 
PASSl switch. Two passes must be made by 
the subroutine if it is necessary to 
handle two fields when the subroutine is 
called by the generated code for an 
UNSTRING verb. If register 2 contains 
zero, it is assumed, however, that there 
are not two fields to be processed. The 
subroutine then checks register 5 for a 
field address. If register 5 also 
contains zero, the call to the subroutine 
has been generated by the code for an 
UNSTRING verb; in this case, the POINTER 
and TALLYING fields of an UNSTRING 
Statement are to be initialized to one 
and zero, respectively. The subroutine 
passes control to PLACEBIN to perform the 
initialization. 

If either or both registers 2 and 5 
contain field addresses, ILBDCVBO obtains 
the type flags, field size, and field 
address and branches to the CNVRTBIN 
routine. The type flags are used to 
index a table, called NDXTBL, and obtain 
the displacement of the code for handling 
the specific field type. The necessary 
information for the field, such as the 
type of sign and where it is located in 
the field, is set up. Then control is 
passed to a common set of instructions 
which move the field to the proper work 
area for conversion; the field is packed 
if necessary. 

Following this processing, the number 
is treated as a double-precision number 
even if it was a single-precision number 
in the beginning. The number occupies 
two doubleword work areas: the low-order 
nine digits (in packed format) are in one 
work area and the high-order nine digits 
are in the other. These digits are 
converted to the binary in two 
registers. The value of the high-order 
.register is multiplied by 10^ to 
reflect its actual value, and the sign is 
adjusted to negative if necessary. 

Control is then passed to PLACEBIN. If 
the binary values are to be returned in 
registers, PLACEBIN merely returns 
control to the caller. However, if the 
call to ILBDCVBO was generated by the 
code for an UNSTRING verb, the binary 
values are placed in a work area for 
later use by ILBDUSTO, and control is 
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returned to the caller. The kddriess of 
the work area is contained in the 
SCUSTWRK field in ILBDMNSO. If the 
SCUSTWRK field contains zero, no storage 
has been obtained yet for the work area. 
In this case, ILBDCVBO issues a GETVIS 
macro instruction to obtain storage for 
the work area and enters the address of 
the area obtained in the SCUSTWRK field. 
The binary values are then placed in the 
correct location in the work area and 
control is returned to the caller. 

When the subroutine receives control at 
entry point ILBDCVBl, it determines 
whether the number to be converted is 
already in registers 1 and/or 2. If it 
is not, it obtains the number from the 
appropriate location in the USTWRK work 
area. Then, ILBDCVBl sets the type flags 
and branches to the CNVRTOEC routine. 

CNVRTDEC converts the values in 
registers 1 and 2 to packed decimal 
format. The high-order nine digits from 
register 1 occupy one doubleword work 
area and the low-order nine digits from 
register 2 occupy another. If the 
receiving field for the converted value 
is internal decimal, the two doubleword 
areas are moved to form one 18-digit 
number. If the receiving field is 
external decimal, the doubleword work 
areas are unpacked to form one 18-digit 
external decimal number and zone bits are 
adjusted. Next, the type flags for the 
field are used to index the NOXTBL table 
and obtain the displacement of the code 
for handling the sign of the number. 
When sign processing is completed, the 
converted number in the work area is 
moved into a field, the address of which 
was passed to ILBOCVBl in register 5. 
Finally control is returned to the caller. 



ILBDCVBO 



Linkage generated for an UNSTRING verb: 

UV 0«»*Type flags* (see Note 1) 
LA l,«*Size of field* 
lA 2, -Address of field 

The foregoing three instructions are 
generated only if POINTER was specified, or 
if POINTER was not specified: 

SR 2,2 

LA 3, « 'Type flags* (see Note 1) 

LA a, s* Size of field* 

LA 5, -Address of field 



The foregoing four instructions are 
generated only if TALLYING was specified, 
or if TALLYI1K3 was not specified: 

SR 5,5 

L 15, V( ILBDCVBO) 

BALR 14,15 

Linkage generated by ILBDUSTO or ILBDSTGO; 

SR 2,2 

LA 3, -'Type flags' (see Note 2) 

LA 4, -'Size of field' 

LA 5, -Address of field 

L 15, V( ILBDCVBO) 

BALR 14,15 



ILBDCVBl 

Linkage generated for an UNSTRING verb: 

If value is POINTER field 

LA 2,1 

or if value is TALLYING field 

LA 2,0 

LA 3, -'Type flags' (see Note 1) 

LA 4, -'Size of field' 

LA 5, -Address of field 

L 15, V( ILBDCVBl) 

BALR 14,15 

Linkage generated by ILBDUSTO or ILBDSTGO: 
1,2, double-precision binary number 



LM 



or 



L 

LA 

LA 

LA 

L 

BALR 



2, single-precision binary number 

3,- 'Type flags' (see Note 2) 

4,='Size of field' 

5, -Address of field 

15, V( ILBDCVBl) 

14,15 



where *Type flags* bits have the following 
meaning : 



Bits 

0-1 

2 



Meaning 

Unused 

Indicates whether binary values 
are passed to, or to be 
passed from ILBOCVB in 
registers. See Notes 1 and 
2. 

Set to 1 if number being passed 
in register is a 
double-precision number. If 
^it 2 is not set to 1, this 
bit is meaningless. 
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a-7 Code 
0110 
0111 

1000 

1001 

1010 

1011 
1100 
1101 



Field Type 

External decimal, unsigned 

External decimal, sign is 

trailing overpunch 
External decimal, sign is 

leading overpunch 
External decimal, sign is 

trailing separate character 
Eternal decimal, sign is 

leading separate character 
Binary 

Internal decimal, unsigned 
Internal decimal, signed 



For double precision binary: 



Note 1 ; Bit 3 of the "Type flags" is 
never set for the POINTER and TALLYING 
fields passed by the generated code for 
the UNSTRING verb. These fields are 
treated specially: when converting these 
fields to binary, the converted values 
are placed in a work area, called USTWRK, 
which is later used when ILBDUSTO is 
called by the generated code for the same 
UNSTRING verb; when converting these 
fields to decimal, the binary values are 
obtained from USTWRK, 

Note 2 ; Bit 3 of the 'Type flags' must 
be set when ILBDCVB is entered under any 
other conditions than those stated in 
Note 1. 

Output ; The output from ILBDCVBO is a 
binary number either in registers 2,3, or 
in the USTWRK work area. The output from 
ILBDCVBl is an internal or external 
decimal number at the location specified 
in the calling sequence. 

Calling Information ; Called by the 
compiled code for an UNSTRING verb or by 
the subroutines ILBDUSTO, ILBDINSO, and 
ILBOSTGO. Calls no other subroutines. 



All Numeric Forms to External 
Floating-Point (ILBDTEFO) 



LM 

L 

BALR 

DC 

DC 

DC 



DC 



OfltBI-nurober 

15,=V(ILBDTEF1) 

14,15 

XLl*Deciirals in EF mantissa* 

XLl* Total length of EF number* 

XLl'EF parameter code* 

(See note at beginning of this 

section) 
XLl* Decimals in Bl-number* 



For internal decimal: 



ZAP 

L 

DC 

DC 

DC 



DC 



W0RKA(16, 13) , ID-field 

15»=V(ILBDTEF2) 

XLl* Decimals in EF mantissa' 

XLl* Total length of EF number* 

XL1*EF parameter code* 

(See note at beginning of this 

section) 
XLl* Decimals in ID nximber* 



For internal floating-point: either 



SDR 
LE 

LD 



0,0 

0,FP- number 

or 

0, FP-number 



Followed in either case by: 



L 

CNOP 

BALR 

DC 

DC 

DC 



DC 

DC 



15,=V(ILBDTEF3) 

2,8 

ia.15 

XLl* Decimals in EF mantissa* 

XLl 'Total length of EF number* 

XLl'EF parameter code* 

(See note at beginning of this 

section) 
XLl 'Slack byte* 
XLS 'FP-number* 

(of the form 10* ♦X, where X is 

the number of digits in the EF 

mantissa) 



Operation : Converts a single precision 
binary, a double precision binary, an 
internal decimal, or an internal 
floating-point number into an external 
floating-point number. 

Linkage : 

For single precision binary: 



L 

L 

BALR 

DC 

DC 

DC 



DC 



0,BI-number 

15, =V (ILBDTEFO) 

1U,15 

XLl 'Decimals in EF mantissa* 

XLl 'Total length of EF number' 

XLl'EF parameter code* 

(See note at beginning of this 

section) 
XLl" Decimals in Bl-nurober' 



Output : The external floating-point result 
is in WORKA-^2U(L,13) where register 13 
points to the TGT. 

Callin<^ Information ; Called by compiled 
code or by the object-time SYMDMP 
subroutine (ZLBDMP23). 



External Floating-Point to internal 
Floating-Point (ILBDEFLO) 



Operation ; Converts an external 
floating-point number into an internal 
floating-point number. 
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Linkage ; 
L 

L 

BALR 

DC 

DC 

DC 



DC 



3, =A (EF- number) 

15,=V(ILBDEFL0) 

1«»,15 

XLl* Decimals in £F mantissa* 

XLl 'Total length of EF-number* 

XLl'EF parameter code* 

(See note at beginning of this 

section) 
XL1« Slack byte* 



Output ; An internal floating-point number 
in floating point register 0. 



ARITHMETIC VERB SUBROUTINES 



The five subroutines described below 
perform involved calculations, such as 
exponentiation, or calculations involving 
larger numbers. Arithmetic operations not 
in these categories are performed in-line 
and do not require use of the library. 



Decimal Multiplication (ILBDMXUO) 
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Operation : Divides a 60-digit decimal 
number by a 30-digit decimal number to 
yield a 60-digit decimal quotient. The 
dividend and divisor are both signed 
decimal numbers, right aligned in their 
fields. 



Linkage : 



MVC 



XC 



ZAP 



WORKA(32,13),Dividend 

(if dividend is 32 bytes) 

or 

UORKA(16,13) ,W0RKA(13) 

(if dividend is 16 bytes or 
less) 

WORKA+16 (16 . 13) , Dividend 



Followed in either case by: 

ZAP MORKA^US (16,13) , Divisor 
L 15, =V (ILBDXDIO) 
BALR 1U,15 

Output : The quotient, a 60-digit decimal 
number, is in the 32-byte field following 
the divisor in the working cell area in the 
TGT. The sign is determined by the rules 
of algebra from the dividend and the 
divisor signs. No remainder is returned. 



Operation : Multiplies two 30-digit decimal 
numbers to produce a 60-digit decimal 
number. Input signs are expected to be C, 
F, or D. 



Linkage ; 

ZAP 
ZAP 
L 



WORKA(16,13),MPLIER 
WORKA+16 (16,13) ,MPCAND 
15,=V(ILBDXMU0) 



BALR 1U,15 

Output : The product, a 60-digit decimal 
number is placed in the 32-byte field 
following the multiplicand in the working 
cell area in the TGT- 



Deciroal Fixed-Point Exponentiation 
(ILBDXPRO) 



Operation : Exponentiates any 30-digit 
packed decimal base to a binary exponent. 
This subroutine calls packed decimal 
multiplication and division routines. 
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Linkage ; 

ZAP 

L 

L 

BALR 

DC 

DC 



VK>RKA(16,13),BAS£(L) 
0, EXPONENT 
15t«V(ILBDXPR0) 
14,15 

XLl' Decimal places in base* 
XL2* Decimal places required in 
result* 



Output I A 16-byte packed decimal number at 
the beginning of the working cell area in 
the TGT. 



Output: The result is in floating-point 
register 0. To avoid imaginary numbers 
(involving the square root of -1), the 
base is always treated as a positive 
number, and the result will always be 
positive. Any condition which would cause 
exponent overflow results in an answer 
equal to the largest floating-point number, 
Any condition which would cause exponent 
underflow results in an answer equal to . 



DATA MANIPULATION SUBROUTINES 



Floating-Point Exponentiation to an Integer 
Exponent (ILBDGPWO) 



The subroutines described below 
manipulate data both in virtual storage and 
on files. They also perform soire editing 
and initializing functions. 



Operation ; Exponentiates a double 
precision floating-point number to a binary 
exponent. 



Linkage : 

LD 

SDR 
LE 



OtBASE 
or 
0,0 
O.BASE 



Followed in either case by: 

0, EXPONENT 

(EXPONENT was converted to 
binary, if necessary) 
L 1 5, =V (ILBDGPWO) 
BALR 14,15 

Output ; The result is in floating-point 
register 0. 



F loating-Point Exponentiation to a 
Noninteqer Exponent (ILBDFFWO) 



Operation ; Exponentiates a long- form 
f loa ti ng - poi nt base to a floating-point 
exponent. 

Linkage : 

LD 0,BASE 

or 
SDR 0, 
LE 0,BASE 

Followed in either case by: 



MVC 



L 
BALR 



W0RKA+8( 8, 13), EXPONENT 

(EXPONENT was converted into 
long-form floating-point, 
if necessary) 

15,=V(ILBDFPM0) 

1U,15 



SORT (ILBDSRTO) And MERGE (ILEDSRTG And 
ILBDMRGO) ICA) 



Sort Operation ; ILBDSRTO acts aa ari 
interface between the COBOL generated 
object program and the Prograir Product 
Sort/Merge program. It links to the 
Sort/Merge program, using parameters from 
the COBOL object program. If INPUT 
PROCEDURE or OUTPUT PROCEDURE has been 
specified, ILBDSRTO branches at exits fron> 
the Sort/Merge program to the sequence of 
instructions specified in the COBOL object 
program. 

If, instead of the INPUT PROCEDURE, the 
USING option of the COBOL SORT statement 
has been specified, at the exit from the 
SORT/MERGE program the subroutine branches 
to the compiler-generated code to open the 
USING file(s). If more than one file is 
specified in the USING statement, they are 
all opened at once. The subroutine then 
reads every record from the first file 
until end-of-file, closes it and then reads 
all the records from the next file until 
end-of-file, closes it, and so on. 

If, instead of the OUTPUT PROCEDURE, the 
GIVING option of the COBOL SORT statement 
has been specified, at the exit from the 
SORT/MERGE program the subroutine branches 
to the compiler-generated code to open the 
GIVING file. The subroutine then writes 
every record onto the giving file and 
closes it when the operations with it are 
complete. Finally, the subroutine returns 
control to the COBOL object program when 
the sort operation is complete. 

Sort Flow of Control ; Diagram 1 (see 
"Program Organization" Section) describes 
the logical flow among the three programs 
which are active during execution of a 
COBOL SORT statement. The statement has 
specified both INPUT PROCEDURE and OUTPUT 
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PROCEDURE; but checkpoint records are not 
to be taken. 

The COBOL object program sets up the 
parameter list, and branches to ILBDSRTO. 
This parameter list consists of 10 address 
constants pointing to the card images 
describing the parameters for the 
Sort/Merge program (see Figure 1, items 1 
through 6), The parameter list also 
contains the addresses of the three branch 
tables and SORT-RET cell in the TGT (see 
Figure 1, items 7 through 10). After 
initialization the subroutine links to the 
Sort/Merge program, when phase 1 of the 
sort/Merge program reaches exit El 5, it 
returns to the subroutine. The first time 
this path is followed, ILBDSRTO branches to 
the routine in the COBOL object program 
which initializes the PERFORM statement of 
the input procedure specified. Control is 
then passed to that procedure. 

When the RELEASE statement is 
encountered in the input procedure, control 
retui'ns to the subroutine. The subroutine 
then establishes the linkage back to the 
statement after the El 5 exit instruction of 
the Sort/Merge program. The Sort/Merge 
program then loops through its phase 1 
operation until it is ready to receive 
another record. It then passes control to 
ILBDSRTO, which in turn passes control to 
the statement in the input procedure 
irrmediately following the RELEASE 
statement. 

This same flow of control through the 
Sort/Merge program, ILBDSRTO, and the COBOL 
input procedure continues until the input 
procedure has released the last record. 
Then control passes to the end of the 
procedure, and by means of the subroutine, 
to phase 2 of the Sort/Merge program. 

The interaction among the three programs 
during the output procedure is essentially 
the same as during the input procedure. 
Phase 3 of the Sort/Merge program returns 
to the subroutine at exit E35 whenever it 
is prepared to return a sorted record. 
Linkage between the subroutine and the 
output procedure is similar to that between 
the subroutine and the input procedure. 
After the last record has been returned by 
the Sort/Merge program, control returns 
through ILBDSRTO to the COBCL object 
program at the instruction immediately 
following the one which originally branched 
to the subroutine. 



Merg e Operation ; ILBDSRTO and ILBDMRGO act 
as the interface between the COBOL object 
program and the Sort/Merge Program (Program 
Number 57H6-SM1). 

ILBDSRTO performs the following functions: 



• calls ILBDMRGO for initialization 

• Links to the Sort/Merge program using 
parameters from the COBOL object 
program. 

• At exit E32 from the Sort/Merge program 
branches to ILBDMRGO. 

• when a merged sequence is determined, 
branches at exit £35 from the 
Sort/Merge program to the COBOL object 
program OUTPUT PROCEDURE or to the code 
for the GIVING option which is the same 
as for the SORT statement. 

ILBDMRGO performs the following functions: 

• At initialization saves the following 
information 

SD buffer address 

— Address of the open USING files 
routine in the COBOL object program 

— Number of input files 

Recording mode of SD 

— Address of error exit for VSAM 
files 

• At exit E32 from the Sort/Merge program 

— Branches to the compiler-generated 
code to open all the USING files 

Reads each record from the input 
files requested by the Sort/Merge 
program 

— Passes the record to the Sort/Merge 
program for merging with a record 
from other files 

Performs a CLOSE operation on a 
file on which an end-of-file 
occurred 

Merge Flow of control : The flow of control 
for MERGE processxng is shown in Diagram 2 
in "Section 2: Program Organization." 
This diagram describes the logical flow 
among the four programs which are active 
resident in storage during execution of the 
COBOL MERGE Statement. 

The COBOL object program sets up the 
parameter list and branches to ILBDSRTO. 
This parameter list consists of ten address 
constants pointing to the card images 
describing the parameters for the 
Sort/Merge program (see Figure 2). Items 1 
through 6 are set up by the COBOL compiler. 
ILBDSRTO sets up the rest of the list, then 
links to ILBDMRGO for initialization. On 
return from ILBDMRGO, ILBDSRTO links to 
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theSort/Merge program. When phase 3 of the 
sort/Merge program reaches exit £32* it 
returns to ILBDSRTO which then branches to 
ILBDMRGO. 

The first time this path is followed, 
ILBDMRGO branches to the COBOL object 
program which opens all the input files and 
passes control back to ILBDMRGO with 
pointers to opened files* DTFs, and BLs in 

WORKING CELLS o£ the TGT. ILBDMRGO then 
reads a record from the input file 
requested by the Sort/Merge program, and 
establishes the linkage back to the 
statement after the E32 exit instruction of 
the Sort/Merge program. 

The Sort/Merge program loops through 
exit E32 until a merged sequence is 
established. It then returns to ILBDSRTO 
at exit E35. Linkage between ILBDSRTO and 
the OUTPUT PROCEDURE is the same as that 
for the SORT statement. (If GIVING is 
specified, ILBDSRTO writes a record onto an 
output file.) 

This flow of control through the 
sort/Merge program, ILBDSRTO and ILBDMRGO 



at exit E32, and ILBDSRTO at exit E35 
continues until ILBDMRGO has released the 
last record to the Sort/Merge program and 
after the last merged record has been 
returned by the Sort/Merge program. 
Control is passed from ILBDSRTO to the 
COBOL object program at the instruction 
immediately following the one that 
originally branches to the subroutine. 

Parameters Passed to the Sort/Merge 
Program : ILBDSRTO passes in register 1 a 
pointer to a ten-word parameter list (see 
Figure 1 for the SORT statement). The ten 
parameters contain addresses of the control 
areas that exist in virtual storage during 
execution of the SORT statement. The first 
six control areas are generated as EBCDIC 
literals by phase 51 of the COBOL compiler. 
They correspond to the control cards that 
are needed by the Sort/Merge program to 
define the specific sort operation. The 
next three control areas are tables of 
branch addresses that are located in 
ILBDSRTO. The final control area is a 
location SORT-RET in the TGT into which a 
return code is placed by the Sort/Merge 
program. 
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© 

© 
© 
© 
© 



© 



© 

© 
© 



t SORT FIELDS=(£4.,lj.,fi,Sa.{,...£ia»liaflj.afSia>)»WCRK«x,[SIZE*value3 

f RECORD TYPE*\V /, LENGTH* \(li,,,,t 1^5] 1/ 

t INPFIL EXIT 

t OUTFIL EXIT 

t OPTION (LABEL= 



,.,|S|„,t 



STORAGE* val ue ] 



or 



t SORT/OPTION data-name 

(a) f MODS PH1=(,,E15),PH3«(,,E35) 

(b) MODS PHl»(,,Ellt£15),PH2-(,,£21),PH3«(,,£31,E35) 



t PHI B Ell - CHECKPOINT ROUTINE 

B E15 - INPUT PROCEDURE OR READ USING FILE(S) 

t PH2 B E21 - CHECKPOINT ROUTINE 

t PH3 B E31 - CHECKPOINT ROUTINE 

B E32 - EXIT E32 IS NOT USED 

B E35 - OUTPUT PROCEDURE OR WRITE THE GIVING FILE 



t Return Code (2-byte area in the TGT) 
Note: t indicates "address of". 



For an explanation of each parameter, see the appropriate circled number under 
"Explanation of Parameter Lists" in this section. 

t X 

Figure 1. Parameter List Passed by ILBDSRTO for SORT 



Explanation of Parameter Lists; 



© 



SORT or MERGE Control Statement ; 

The FIELDS parameter describes the 
SORT or MERGE keys of vhich a 
maximum of 12 may be 
specified. For each key there 
are four parameters. 



Pn*the position within the 
record, of the high order 
byte of the control data 
field 



ln=the length in bytes of the 
control data field 

fn-the format of the data in 
each of the control data 
fields, for example, ZD 
(zoned decimal), CSL 
(leading separate 
character for ASCII) 

Snathe sequence into which the 
control data field will be 
sorted, that is, A 
(ascending), D 
(descending) 
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MERGE ] 


FIELDS 


>=t£i»la.f li»Sif , • •-Eia»liafliaf Sia) ,FILES=n 






© 






RECORD 


TYPE= 


■ {v/. LENGTH'S {(1+,,,,[1 5]) 






© 






INPFIL 


EXIT 








© 






OUTFIL 


EXIT 








© 






OPTION 


IST0RAGE=value3 












or 
















SORT-OPTION 


data-name 






© 


1 (c) 




MODS PH3(, ,E32,E35) 




1 




.J.— ... 












r* 


















© 






PHI B 
B 


Ell 
E15 


- EXIT NOT USED 

- EXIT NOT USED 






© 






PH2 B 


F21 


- EXIT NOT USED 




1 


© 


_X.— .. 




PH3 B 
B 
B 


E31 
E32 
E35 


- EXIT NOT USED 

- ILBDMRGO TO READ RECORDS FROM USING FILES 

- OUTPUT PROCEDURE OR WRITE THE GIVING FILE 




1 




~T 












© 


.X.—- ..^ 


t 


Return 


code 










iNote: 


t indicates 


"address of". 








|For explanation of 
1 section. 


the parameters see "Explanation of Parameter Lists" 


in this 1 



Figure 2. Parameter List by ILBDSRTO for MERGE 



The WORK parameter specifies the ^n 
number of devices available 
for tape intermediate storage 
or the number of extents 
available for disk 
intermediate storage. For 
tape devices* the range of 
acceptable values is 3 through 
9. For direct- access devices, 
the range of acceptable values 
is 1 through 8. If no value 
is specified, default values 
of 1 and 3 will be assigned 
for disk and tape, 
respectively. 

The FILES parameter specifies the 
number of input files that are 
to be merged. If -^ 

SORT-FILE-SIZE is specified, (s) 
the SIZE= parameter is added 
for SORT only. 



RECORD Control Statement ; 

The TYPE parameter is used to 

differentiate between F (fixed 
length) and V (variable 
length) records. 

The LENGTH parameter for 

fixed-length records specifies 
the number of bytes (1) of one 
logical record in the input 
file. For variable length 
records the LENGTH parameter 
specifies the maximum (1^) 
number of bytes in a single 
input record. If 
SORT-MODE-SIZE exists, 1 is 
also specified. 

INPFIL control Statement ; 

The EXIT parameter indicates to 
the Sort/Merge program that 
all input records are supplied 
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at exit El 5 and that a routine 
at that exit reads the input 
£ile and passes the records 
one at a time to the 
Sort/Merge program. 

® OUTFIL Control Statement : 

The EXIT parameter specifies to 
the Sort/Merge program that a 
routine at exit £35 will 
process each record after it 
has been sorted and that a 
routine at that exit writes 
the output file. This routine 
is the output procedure that 
has been specified or created. 

(?) OPTIONS Control Statement ; 

The LABEL parameter indicates the 
type of label on the work 
files. It may be U 
(unlabeled) or S (standard). 
All work files roust have the 
same type of label. (Not used 
for MERGE.) If SORT-CORE-SIZE 
exists, the STORAGE- parameter 
is added. 

If SORT-OPTION is specified 
in the SD statement » the 
address of the data-name is 
passed to subroutine ILBDSRTO. 
The value contained in the 
data-name field may have the 
following format: 



OPTION 



PRINT 
PRINT=NONE 
PRINT-ALL 
PRINT=CRITICAL _ 



[, LABEL" (,, work)] 



, STORAGE" 



n 

nK 

(n.VIRT) 

(nK,VIRT)' 



[,ALTWK] [, ERASE] 



,R0UTE=LST1 
, ROUTE'LOG J 



r , SORTWK«work n 

L , S0RTWK= (worki , - . . work„ ) J 

Note: At least one blank must 
follow the last operand. 
Figure 3 summarizes the 



SORT-OPTION operands and their 
defaults. The word OPTION 
must start in column 1. 



PRINT Option 



PRINT 

PRINT=NONE 
PRINT=ALL 
PRINT=CRITICAL 



PRINT and PRINT=ALL specify 
that all messages are to be 
printed by the Sort/Merge 
program. This includes error 
and end-of-job messages, 
control card inforiration, 
various size calculations, and 
other informative messages. 

PRINT=NCNE specifies that 
no messages are to be printed. 
It is useful if you have no 
alternate message device and 
do not want messages listed 
with other printed output. A 
message device need not be 
assigned. 

PRINT=CRITICAL specifies 
that only messages resulting 
from conditions that can cause 
program termination are to be 
printed. For more details on 
these conditions and messages, 
refer to IBM DOS/VS Sort/Merge 
Programmer's Guide , Order 
No. SC33-U028. 



Note: PRINT=ALL is assumed 
until the SORT-OPTION 
statement is read. Therefore, 
if PRINT=NONE or 
PRINT=CRITICAL are to be used, 
these options must precede all 
others in the SORT-OPTION 
statement. 

LABEL Option 

tLAEEL=(,,work)] 

This operand specifies the 
type of labels associated with 
the work files. The parameter 
represented by work is either 
S (standard labels) or U 
(unlabeled). This operand is 
required if the SORT-OPTION 
statement is specified and 
unlabeled work files are used. 
If it is omitted, standard 
labels are assumed for all 
files. 
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Statement 



Operands 



j Coininents 



OPTION 



PRINT={ALL/NONE/CRITICAL> or PRINT 

STORAGE=n/ (n.VIRT) / (nK, . . . - ) 

LABEL* (,, work) 

ALTMK 

ERASE 

ROUTE={LST/LOG) 



i SORTWK= (work/ ( worki , . . . • work„) } 
.X - ^ 



I Default=ALL 
4 

] Default: see discussion. 
4 

I Default=standard labels. 

4 



j Default: PhO iressage on 

1 printer and console and | 

I Phi- 3 on console. j 

4 ^ 

1 Default* (1,2,. ..it) | 

.A J 



Figure 3. Summary of SORT-OPTION Operands 



Note : When standard labels 
are used, the Sort/Merge 
program uses the DOS/VS system 
facilities to process these 
labels. Unlabeled tape files 
are processed by the 
Sort/Merge program. No user 
programming is required. 



STORAGE Option 



, STORAGE* 



n 

nK 

(nK.VIRT) 

(nK,VIRT) 



This option is required to 
specify to the Sort/Merge 
program how much storage to 
use and whether it can fix 
pages. 

n specifies a decimal 
number of bytes of storage to 
be made available to the 
sort/Merge program (together 
with its user routines). nK 
specifies the decimal number 
of K (102U bytes) of storage 
available. 

The default is the value of 
the SIZE parameter on the EXEC 
job control statement. If 
both SIZE and STORAGE are 
specified, the lower value is 
taken. If neither is 
specified, the default is the 
partition size of the required 
size calculated by the 
Sort/Merge program (but at 
least 6UK), which ever is 
smaller. The Sort/Merge 
program terminates if n is 
less than 16K bytes. If n is 



greater than the partition 
size, it is ignored. 

If the Sort/Merge program 
is invoked from another 
program, the defaults are 
calculated in a similar way, 
but the value of the SIZE 
parameter and the partition 
size are adjusted downwards by 
the difference between the 
address of the Sort/Merge load 
point and the starting address 
of the partition. 

If VIRT is specified, the 
Sort/Merge prograrr does not 
try to fix pages when running 
in virtual mode. You may need 
to specify VIRT to prevent 
interference with other jobs 
running simultaneously, or to 
allow a user-written routine 
to fix pages. VIRT should be 
avoided whenever possible, 
since it has an unfavorable 
effect on Sort/Merge 
performance. It is ignored 
when the Sort/Merge program is 
running in real mode. The 
value in SORT-CORE-SIZE is 
ignored if the SORT-OPTION 
clause is specified. 

ALTWK Option 

ALTWK specifies an 
alternate work drive (tape 
only) in a sorting job. This 
doubles the maxiiruir input file 
size allowed. The address of 
the alternate device must be 
different from the address of 
all other devices used in the 
job. Figure 3 shows the file 
name and default symbolic unit 
name. 
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ERASE Option 

ERASE specifies that work 
data sets used during a sort 
are to be erased at the end of 
the job. It is ignored if 
2400-series tapes are used for 
work areas. If the sort 
terminates abnormally, 

• ERASE is performed unless 
the checkpoint facility 
has been specified; 

• if ERASE is performed, and 
if a workfile has been 
pooled with output, the 
output file is also 
erased. 

Note that the Sort/Merge 
program does not close work 
data sets, even when 
terminating normally. 

ROUTE Option 

r,ROUTE=LST'l 

L,route=logJ 

LST specifies that messages 
are to be routed to the SYSLST 
file by the Sort/Merge 
program. Messages requiring 
operator intervention are also 
printed on SYSLCG if allocated 
to a DOS/VS supported console 
•device. 

LOG specifies that messages 
are to be routed to the 
controls. 



Note ; The default is assumed 
until the ROUTE option has 
been read. 

SORTWK Option 

r,SORTWK=work -| 

[_, SORTWK= (worki , . . . work„) J 

This operand specifies the 
logical unit numbers 
associated with the work 
files. The parameters within 
parentheses must be replaced 
by symbolic unit numbers of a 
maximum of three significant 
digits from 1 to 221, or a 
comma. When a comma is coded, 
or if the operand is omitted, 
the Sort/Merge program uses 
the default assignment. 
Figure 4 summarizes the file 
names and default symbolic 
unit names. 



r T " — 'T 1 

I Use of Device I Filename I Symbolic Unit Name| 

^ + + ^ 

I work ISCRTWKI ISYSOOI | 



I 1S0RTWK9 |SYS(M) | 

jALTWK jSORTALT |SYS(M+1) | 

^ X X ^ 

|M=the number of work files, as specified | 
I in the SELECT statement for the SD file. | 

t J 

Figure 4. Sort/Merge File Naire and 

Default Symbolic Unit Names 



© 



© 



MODS Control Statement ; 

This statement specifies the exits 
used to branch out of the 
Sort/Merge program to the 
subroutine. The PHn entry 
specifies the phase in which the 
exit occurs. The E nn entry 
specifies the number of the exit 
used in branching to the 
subroutine. When RERUN has been 
specified in the COBOL source 
program (that is, when checkpoint 
records have been requested) , the 
format generated is indicated by 
(b) in Figure 1. Otherwise, the 
format indicated by (a) in Figure 
1 is used. 

(a) This statement indicates 
to the Sort/Merge program that 
exit El 5 is to be used in phase 1; 
no modification is to be made to 
phase 2; and exit E35 is to be 
used in phase 3. 

(b> This statement indicates 
to the Sort/Merge program that 
exits Ell and E15 are to be taken 
in phase 1; exit E21 is to be used 
in phase 2; and exits E31 and E35 
are to be used in phase 3. 

(c) This statement indicates 
to the Sort/Merge Program that no 
modifications are to be made to 
Phases 1 and 2, and that Exits E32 
and E3S are to be used in Phase 3. 

PHI (Phase 1 Branch Table) ; 

This branch table consists of 
branch instructions that the 
Sort/Merge program uses when a 
phase 1 exit is requested on the 
MODS control statement. It is not 
used for MERGE. The three branch 
tables are assembled in the SORT 
subroutine according to the form 
shown in Figure 1. To pass 
control to a routine at a 
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particular exit, the Sort/Merge 
program uses the branch table and 
a fixed displacement associated 
with each program exit and then 
branches to the routine indicated. 



For ex2unple, when the 
Sort/Merge program goes to the E15 
exit, it loads register 15 with 
the address of the beginning of 
the table and Issues a BAL 
lU,tKl5) instruction. The 
Sort/Merge program passes in 
register 1 the address of a 
parameter list containing pointers 
to any records, checkpoint lists, 
etc., applicable to that exit. 



Linkage to ILBDSRTO for SORT or MERGE; 



MVC 

MVC 

LA 

LR 

LA 

LA 

LA 

LA 



LA 



LNR 



PARAM CELLS, literal-1 for SORT FIELDS 

PARAM CELLS, literal- 2 for RECORD TYPE 

0, PARAM CELLS for SORT FIELDS 

1.0 

1, PARAM CELLS for RECORD TYPE 

2,INPFIL 



3,0UTFIL 
U, OPTIONS 



(SORT without SORT-OPTION 
specified in SD) 



or 



U , SORT-OPTION data-name 



^.U 



(SORT with 
SORT-OPTION 
data-name 
specified in 
SD) 



® 



® 



® 



PH2 (Phase 2 Branch Table); 



This branch table is used to pass 
control to the Checkpoint 
subroutine (ILBDCKPO) during Phase 
2 of the Sort/Merge program, if 
the E21 exit is specified (see 
Figure 1, item 6b) . It is not 
used for MERGE. 



PH3 (Phase 3 Branch Table) ; 

This branch table is used to 
return a sorted record to 
ILBDSRTO. It is also used to pass 
control to the Checkpoint 
subroutine, if the E31 exit is 
specified. 



Return code ; 

The Sort/Merge program stores a 
return code of or 16 indicating 
the success or failure, 
respectively, of the sort 
procedure. The user can test the 
return code by referring to the 
reserved word SORT-RETURN. 



PH3 (Phase 3 Branch Table ) 

This branch table is used to 
branch to ILBDMRGO to get a record 
from one of the input files to be 
merged or to return a merged 
record to ILBDSRTO from the 
Sort/Merge Prog ram - 



SR 

STM 

LA 

LA 

LA 

LA 

STM 

LH 

STH 

L 

BALR 



or 

4,4 (MERGE) 

0,a,WORKCELLS 

0,MODS 

1, INPUT PROCEDURE 

2, Input buffer 

3, OUTPUT PROCEDURE 

0,3,WORKC£LLS-i-16 

a, •number of USING files' 

4,t40RKCELLS4^38 
15, =V( ILBDSRTO) 
14,15 



SOPT only 



The code generated to open USING files 
for MERGE and SORT and pass back DTF and BL 
addresses to ILBDMRGO and ILBDSRTO is as 
follows ; 



GNl 



EQU 
ST 



1U,XSA 



return address to 
ILBDSRTO or ILBDMRGO 



The OPEN code for multiple file-names is as 
follows: 



L 1,DTF#2 Open coding for 

L 2«BL#2 multiple file-names 

STM 1,2, WORKING CELLS#1 

L 1,DTF#3 

L 2,BL#3 

STM 1,2, WORKING CELLS#9 

MVI WORKING CELLS#9,X»80* generated 

only if 
VSAM file 



GN2 



L 1U,XSA 
BC 15,14 
EQU ♦ 
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Before control is passed to ILBDSRTO, 
addressability is set up for the parameters 
that are needed in the Sort/Merge program 
and for the input and output procedures 
that have been specified. 

Output ; If the GIVING option is employed, 
the output is the sorted or merged file; if 
not, the output is sorted records passed 
singly. 

Linkage to ILBDMRGO from ILBDSRTO; 



Linkage ; 





Note: 


At initialization the code is: 






For 


L 1,A(SDEUFFER) 




L 2, A (USING GN) 


DC 


LH 3,'NUM OF USING FILES' 


DC 


LA 4,1 If SD recording 




mode is V or S 




or 


DC 


SR 4,it If SD recording 


DC 


mode is F 




L 15,=V(ILBDMRG0) 


DC 


L 5,A(ERR0REXIT) 




BAL 14,4(15) 





At exit E32 from the Sort/Merge program the 
code is: 



L 
BR 



15,=V(ILBDMRG0) 
15 



Output ; The record is passed to the 
Sort/Merge program for merging. 



Dummy SORT (ILBDDUMO) 

Operation : This subroutine is a 2-byte 
dummy subroutine which is loaded after the 
object module. If the SYMDWF option is not 
specified, the load point of ILBDDUMO is 
used as the load point for the DOS/VS 
Operating System SORT Program. If the 
SYMDMP option is specified, the load point 
of the SORT program is determined by adding 
the length of the allocated SYMDMP modules 
and tables to the load point of ILBDDUMO. 

Linkage ; None- 
Output: None. 

Move (ILEDVMOO) 



Operation ; Used when one or both operands 
are variable in length or exceed 4096 bytes 
in length and the MVCL instruction cannot 
be used because the operands overlap. The 
variable-length operand may exceed 256 
bytes. The subroutine has two entry 
points, depending upon whether the move is 
left justified or right justified. 



L 15, =V( ILEDVMOO) (left- justified) 

or 
L 15,=V(ILBDVM01) (right- justified) 
BALR 1,15 
DC XLIO' Operand- A Information* 

(See Note) 
DC XLlO'Operand-E Information' 

(See Note) 



Substitute one of the following; 



For a variable- length operand: 



XLl'Type code' 

AL3 (displacement of the variable- 
length cell in the TGT from the 
base register code) 

ALKbase register code) 

ALB (displacement of base locator 
from the above base register) 

XL2* Displacement of item from 
BL address' 



For a fixed- length operand: 

DC XLl*Type code' 

DC XL3* Length of operand' 

DC ALKbase code) 

DC AL3 (displacement of item from 

above base) 
DC XL2' Displacement of item from 

EL address' 



The Type codes are: 



4-7 



Meaning, if on 
Figurative constant 
Not used 
Variable length 
Direct pointer to the Program 
Global Table (for a literal) 
Not used 



Output ; None, 



Moving Characters (ILBDMOVO) [CB] 



Operation : This subroutine executes an MVC 
instruction of any length. 



Linkage : 

L 
L 
L 
L 
BALR 



3 , LENGTH 

5, A (Receiving field) 

2,A(Sending field) 

15, =V( ILBDMOVO) 

14,15 



Output ; The MVC is executed if the length 
is positive. 
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Transform (ILBDVTRO) 



MOVE to Right-Justified Field for 
Sv8tein/370 (ILBDSMVO) 



Operation : This subroutine translates a 
field (operand) of variable length or of a 
length greater than 256 bytes. It uses the 
translate table, ILBDTRNO* which it moves 
to a work area and then modifies according 
to the needed transformation. 



Linkage : 

L 

L 

BALR 

DC 

DC 

DC 

DC 



DC 



2,sA(ILBDTRN0) 

15, =V( ILBDVTRO) 

1,15 

XLl^Type code* (see Note) 

XL3' Length of item' 

ALKbase code) 

AL3 (displacement of pointer in 

TGT or displacement of literal 

text) 
XL2* Displacement from BL* 



Note; The Type code bits are: 

Bit Meaning, if on 

0-1 Not used 

2 variable-length item 

3 Direct pointer (for example, a 

pointer for a literal or TALLY) 
U-7 Not used 



Output : The data field is transformed as 
requested. 



MOVE Figurative Constant (ILBDANFO) 



Operation : This subroutine moves a 
figurative constant of more than one 
character into a nonnumeric receiving 
field. The result may be right or left 
justified. 



Linkage : 

L 

LA 

LA 

L 

BALR 

DC 



DC 



0, Length of receiving field 

1, Receiving field 

2, Figurative constant 

15, =V( ILBDANFO) 

ia,15 

X« 00' (Flag byte: Bit = 1 if 

the receiving field is 

right adjusted) 
X' 00* (Length of figurative 

constant) 



Operation : This subroutine moves 
characters into a right- justified receiving 
field when the user has specified IBM- 370 
in the OBJECT- COMPUTER paragraph and the 
receiving field is either greater than 512 
bytes in length or variable in length. 



Linkage : 



LA 

LH 

LA 

LH 

L 

BALR 



0, Receiving field 

1, Length of receiving field 

2, Sending field 

3, Length of sending field 

15, =V( ILBDSMVO) 

ia.i5 



Output : The characters are transferred to 
a right- justified receiving field. 



Calling Information : 
code. 



Called by compiled 



Alphanumeric Edit (ILBDANEO) 



Operation : This subroutine moves a 
data-name, literal, or figurative constant 
into a right- or left-adjusted alphanumeric 
edited field. Each group of X*s in the 
PICTURE is treated as an individual field. 



Linkage : 



L 


0, Length of sending field 


LA 


1, Sending field 


LA 


2, Receiving field 


LA 


3, Edit mask (see Note 1) 


L 


15, =V (ILBDANEO) 


BALR 


ia,15 


DC 


X'OOMFlag byte; see 




Note 2) 


DC 


X" 00 '(Mask length) 


DC 


X» 0000 '(Receiving length) 



Note 1 : Edit mask is an encoded form of 
the COBOL alphanumeric edit picture. 

Note 2 ; 

Bit Meaning, if on 

Right-adjusted receiving field 

1 Sending field is a figurative 

constant 
2-7 Not used 



Output : The receiving field is filled with Output : 
the figurative constant. move. 



The completed alphanumeric edited 



Subroutines for Object Time Program Operations 27 



Licensed Material - Property of IBM 



STRING (ILBDSTGO) [CBAl 

Operation ; The subroutine moves one or 
more data items contiguously into a 
specified receiving field following the 
rules for the STRING verb. The 
subroutine moves all or, when DELIMITED 
BY is specified, part of each data item 
in the sending fields. If the number of 
characters to be moved exceeds the length 
of the receiving field, or if the value 
of POINTER is less than one or greater 
than the size of the receiving field, an 
overflow condition exists. If an 
OVERFLOW routine was specified, it 
receives control in response to an 
overflow condition. 



is SIZE, X'FFFF' is generated instead of 
the parameter set. 

Note ; Switch byte has the following 
meanings; 



Value 
X»10' 



X'20* 
X'40' 



Meaning 

Field is a literal or 

figurative constant, pointer 

is direct 
pointer is direct 

Size field contained the 
displacement of the VLC in 
the TGT for a sending field 
or delimiter 



Linkage 

LA 
LA 
LA 
LA 
LA 
LA 
LA 
BALR 



FIELDA 
PIELDB 



FIELDC 



0, FIELDA 

1 , FIELDS 

2, FIELDC 

3, receiving field 

4, length of POINTER 

5 , POINTER 

1 5, =V( ILBDSTGO) 

14,15 



DC CL2' Length of receiving field* 
DC ALi( (parameter set 1) 
ALU (parameter set 2) 



XLl'80' 

AL3(last parameter set) 
DC XLl' Number of sending fields in 
parameter set 1* 



XLl 'Number of sending fields 
in last parameter set' 



where 

the parameter set format for sending 
fields and delimiters is as follows: 

DC XLl 'Switch byte* (see Note 1) 

DC XLB'Size of field* 

DC XLl 'Base of base locator* 

DC XLl - Unused 

DC XLl 'Locator of base locator' 

DC XL2' Displacement from base locator' 



There is one parameter set for each 
sending field, followed by one set for 
the delimiter. However, if the delimiter 



Output ; The concatenated data items in 
the specified receiving field. 

Calling Information : Called by compiled 
code. Calls subroutine ILBDCVBO and 
ILBDACSO . 

UNSTRING (ILBDUSTO) [CBB] 



Operation : The subroutine separates 
contiguous data and moves it from one 
sending field into one or more receiving 
fields according to the rules for the 
UNSTRING verb. 

When the subroutine is entered for the 
first time for an UNSTRING statement, 
storage is obtained and initialization 
processing is performed. The subroutine 
checks whether the POINTER value, if 
specified, is less than one or greater than 
the size of the sending field. If so, the 
return address associated with the OVERFLOW 
option is taken. 

Following the above processing, or upon 
subsequent entries to UNSTRING, or after 
processing each of the four possible types 
of fields, the subroutine checks for the 
end of the input parameter fields. If the 
end has been reached, end processing is 
performed and control is returned to the 
calling program. If the end of the sending 
field has not been reached when the final 
call to UNSTRING has been executed, an 
overflow conditior exists and the return 
address associated with the OVERFLOW option 
is taken. If the end of the input 
parameter fields has not been reached, the 
subroutine determines what type of field 
has been specified as input: DELIMITED BY, 
RECEIVING, DELIMITER IN, or COUNT IN, 

For a DELIMITED BY field, a Delimiter 
table is created and an entry is made for 
each delimiter. An entry contains the flag 
byte from the input parameters, and the 
address and lenoth of the delimiter. The 
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count of delimiters processed is saved (If 
this is the first call) as the number of 
entries in the table and the input 
parameter field is updated by the length of 
the parameter field for DELIMITED BY. The 
subroutine then checks for the end of the 
input DELIMITED BY parameter fields and 
continues as described above. When there 
are no more DELIMITED BY fields, the 
subroutine checks for otner types of 
fields. 

For a RECEIVING field, the subroutine 
gets the address of ti\e next byte of the 
sending field to be processed. If the end 
of the sending field iias been reached, 
processing is terminated, and although no 
overflow condition exists, the return 
address associated with the OVERFLOW option 
is taken. 

If the end of the cending field has not 
been reached, the subroutine checks for 
delimiters, xf no delimiters were 
specified, the size of the field to be 
moved from the sending field to the 
receiving field is equal to the size of tbe 
receiving field. 

If delimiters were specified, the 
subroutine scans the sending field for a 
match with any one of the delimiters 
stored in the delimiter table. If a 
match is found, the size of the sending 
field is equal to the length of the field 
extending from the location of the next 
byte of the sending field to be processed 
to the location of the first character of 
the delimiter or the end of the sending 
field, whichever comes first. If the 
match is not equal and if PROGRAM 
COLLATING SEQUENCE is in effect, the 
operands are translated according to the 
collating sequence specified. 
Information about the delimiter is saved 
for later use in processing the DELIMITER 
IN field. 

When the length of the sending field 
has been determined, processing to 
prepare the data to be moved is 
performed. An internal routine performs 
the move according to the receiving field 
type. After moving the data, POINTER and 
TALLY, and the address of the next byte 
of the sending field to be processed are 
updated. 

If a delimiter was found, the subroutine 
now checks to determine whether ALL was 
specified. If ALL was specified, the 
subroutine determines the number of 
complete delimiters that follow in the 
sending field and, accordingly, updates the 
size and end address of the delimiter 
field, which was saved for DELIMITER IN 
processing. In all cases, whether there is 
a delimiter or not, the subroutine updates 



the input parauneter field by the length of 
the parameter field for RECEIVING and 
branches to check for other types of fields 
or for the end of the input parameter 
fields. The size of the isolated delimiter 
field is added to the POINTER value either 
at the beginning of processing for the next 
RECEIVING field or at the end of the 
subroutine if this is the last call. 

For a DELIMITER IN field, the 
information stored while processing a 
RECEIVING field is used ^o determine how 
much of the delimiter field is to be moved 
to the DELIMITER IN field. The subroutine 
then handles the move in the same manner as 
for a RECEIVING field. After moving the 
delimiter field, the subroutine updates the 
input parameter field by the length of the 
parameter field for DELIMITER IN and 
branches to check for other types of fields 
or for the end of the input parameter 
fields. 

For a COUNT IN field, the subroutine 
generates a call to the subroutine entry 
point ILBDCVBl, which performs the actual 
processing for this field. Upon return 
from ILBDCVBl, the subroutine updates the 
input parameter field by the length of 
the parameter field for COUNT IN and 
branches to check for other types of 
fields or for the end of the input 
parameter fields. 

Linkage 

If POINTER and/or TALLYING is specified, 
a call to ILBDCVBO precedes these 
instructions. 

L 15,GN1 
BALR 1,15 

(generated code for statements 
following the UNSTRING verb) 

• First call to ILBDUSTO for an UNSTRING 
verb 

GNl ST 1,PARAM CELLS 

(possible subscripting) 

L 2, OVERFLOW return address 

MVI WORKING CELLS, indicator whether 

OVERFLOW specified 
L 3. sending field address 
L 4, length of sending field 
L 15,6Nxl 
BALR 1,15 

Input parameter fields (see note) 
GNxl L 1 5, -V( ILBDUSTO) 
BALR 14,15 

In addition to the above instructions, 
the following information is placed in 
the WORKING CELLS field of the TGT if 
needed: 
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Byte Contents 

=x»PF* if overflow specified 
«X*00» if overflow not 

specified 

1 This COBOL program's character 

for COMMA 

2 This COBOii program's character 

for DECIMAL POINT 

3 This COBOL program's character 

for CURRENCY SIGN 
H'7 Address of ILBDCVBO 

In the TGT working cells, the TUNSF bit 
(X'20') in the TGWRKCL2 field 
(TGT + X'74') is set to indicate that 
this is the first call to ILBDUSTO for 
this UNSTRING verb. If this is the last 
call, the TUNSL bit (X'lO*) is set. (It 
is possible for both first and last 
indicators to be set on in the case where 
this is the only call to ILBDUSTO.) In 
the case where this is a first call and a 
subsequent call is expected. TGWRKCL2 is 
set to X'OO' on return to compiled code 
from any but the last call. In ILBDMNSO, 
the SCUSIWRK field (ILBDMNSO + 8) 
contains either the address of a work 
area obtained through a GETVIS macro 
instruction or zeros to indicate that 
ILBDUSTO must obtain the work area. If 
the work area has been obtained, the 
initial POINTER and TALLYING values have 
been placed in bytes 4-19 of this work 
area. 

• Subsequent calls for an UNSTRING verb : 

L 15,GNx2 
BALR 1,15 

Input parameter fields (see note) 
GNx2 L 1 5, V» (ILBDUSTO) 
BALR 14,15 

• Last call for an UNSTRING verb : 

L 15,GNx3 

BALR 1,15 

Input parameter fields (see note) 

GNx3 L register, address of SUBCOM 

MVI TGWRKCL2 , TUNSL 

L 1 5, ■V( ILBDUSTO) 

BALR 14,15 

OVERFLOW return address — If POINTER 
and/or TALLYING is specified, a call to 
ILBDCVBl is generated. 

L 15,PARAM cells 

BCR 15,15 
Note: The format of the input parameter 
fields is as follows: 

DC XLl'Type Flags' 



4-7 



DC 



DC 
DC 



code Meaning 

00 DELIMITER field 

01 RECEIVING field 

10 DELIMITER- IN field 

11 COUNT- IN field 

If 1, All specified for 
DELIMITER field (also may be 
set for COUNT-IN field with 
different meaning for use by 
ILBDCVBO subroutine) 

If 1, base locator is 
direct; only valid for a 
DELIMITER field; for other 
field types 

As indicated in the 
following chart: 

Code Meaning 

0000 Variable group 

0001 Alphanumeric 
0010 Alphanumeric, 

right- justified 

0110 External decimal, 

unsigned 

0111 External decimal, 

trailing overpionch 

1000 External decimal, 

leading overpunch 

1001 External decimal, 

separate trailing 

1010 External decimal, 

separate leading 

1011 Binary 

1100 Internal decimal « 

unsigned 

1101 Internal decimal, 

signed 

XL3 'Length to be considered from 

sending field AL3(VLC) if this is 

a variable group field' 

AL4 (base locator) 

XL2' DISPLACEMENT' -- these two 

fields are used to compute address 



The preceding ten bytes are present for all 
types of fields; the following fields are 
present only for type specified. 

• DELIMITER Field 



DC 



XLl'NN* sequence number starting at 
zero 



Bits 
0-1 



Contents 
ID bits 



• RECEIVING or DELIMITER- IN field if 
numeric. 

DC XLl* Number of digits to right of 

decimal * 
DC XLl 'Scaling factor' 
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Output : The characters are transferred 
to the receiving field. 



Calling Information : 
subroutine ILBDUSTO. 
subroutines. 



Called by 
Calls no other 



INSPECT- ( I LBDINSO) [CBC] 

Operation : When this re-entrant routine 
receives control to implement the INSPECT 
statement, the compiler has already 
explicitly defined any implied operands. 
The four major sections of ILBDINSO then 
perform as follows: XSETUP obtains a 
work area and performs initialization 
housekeeping. XDELIM sets up the 
delimiter limits for each clause, and 
builds a translate table. XSCAN scans 
the identifier, performing replacement 
and tallying as necessary. XTERM loops 
back to XDELIM if a Format 3 INSPECT has 
only completed the TALLYING portion; 
otherwise, it performs termination 
housekeeping. 



The following seven words are repeated 
for each TALLYING or REPLACING opera- 
tion to be performed (the final such 
group is denoted by the high-order bit 
being on) : 

Word Byte Use 



Linkage 

LA 
LA 
L 
BALR 



1, parameter list 

13,TGT 

1 5, V (ILBDINSO) 

14,15 



1 



The parameter list is: 
Word Byte Use 




1-3 



0-3 


1-3 



YY switches (seune as 
corresponding verb) 
XXI switches for OP-1 
(internal format 
information) 
XX2 switches for OP-2 
(internal format 
information) 
XX 3 switches for OP- 3 
(internal format 
information) 

set to zero 

length of OP-1 (TALLYING 
or REPLACING operand) 

address of OP-1 

set to zero 

length of OP-2 (comparand; 
zero if CHARACTERS) 



0-3 address of OP-2 




1-3 

1-3 



set to zero 
length of OP-3 



1 





XXO switches for lD-1 
(internal format 
information) 




1-3 


length of ID-1 


2 


0-3 


address of ID-1 



address of OP-3 (INITIAL 
operand; zero if omitted) 
Output ; Updated TALLYING and REPLACING 
identifiers. 

Calling Information : Called by the 
compiled code. Calls ILBDCMMO (for 
GETCORE/FREECORE operations) , ILBDCVBO 
(for binary conversions) , and ILBDACSO 
(for alternate collating sequence 
comparisons) . 
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Operation ; This subroutine searches a 
table using a binary search technique and 
returns the address of a desired table 
entry to the calling routine. From one to 
twelve keys may be specified, all of which 
must be satisfied for a successful search. 
The table must have been presorted on all 
keys, and all entries must be of the same 
length. If the search is unsuccessful, 
control is returned to the AT END address 
specified by the caller. The subroutine is 
called by code generated from processing a 
SEARCH ALL Statement. 



Linkage ; 



LA 


0, Search argument 


LA 


1, Table descriptor (See 




Note 1) 


CNOP 


2»H 


L 


15, =V( ILBDSCHO) 


BALR 


1U,15 


DC 


x*nn* (See Note 2) 


DC 


X'nn' (Length of first key) 


DC 


X'nnnn* (Offset of first key 




from the beginning of table 




entry) 


• 


(Same 4 bytes 


• 


of information 


• 


for each key) 



Note 1 ; The table descriptor is a 16-byte 
area starting at TEMP STORAGE-** in the TGT 
and is in the following format: 



Byte 


Meaning 


0-3 


Table address 


4-7 


Maximum number of occurrences 


8-11 


AT END address 


12 


Number of keys 


13 


Not used 


m-15 


Length of a table entry 



The search argument is in a location 
starting at TEMP STORAGE- 2 in the TGT. 

Note 2 : The type of key is as follows: 

Bit Meaning 

l=ascending; 0=descending 

1 Binary 

2 Packed decimal 

3 Zoned decimal 
^ Alphanumeric 

5-7 Not used (all bits 0) 

Output : If the desired entry is found, its 
address is returned in register 0, and 
control is returned to the instruction 
appearing after the in-line key 
descriptions. If the entry is not found, 
control is returned to the AT END address. 

The instructions following the key 
entries cause the index-name associated 



with the level of the table being searched 
to be set to the displacement of the found 
entry. 



Segmentation (ILBDSEMO) [CC] 



Operation : This subroutine performs the 
loading and initializing for the 
segmentation feature of the compiler when 
LANGLVL(l) is used. If the GO TO 
statement has a VN as its operand, this 
subroutine will do one of the following: 

1. Load and initialize, if the segment of 
destination is independent and not in 
virtual storage. 

2. Load only, if the segment of 
destination is overlayable and not in 
virtual storage. 

3- Initialize only, if the segment of 
destination is in virtual storage, 
independent, and not the same as the 
origin of branch. 

U, Branch to the desired entry point, if 
the segment of destination is in the 
root segment. 

5. Branch to subroutine ILBDDBGO if the 
SYMDMP option is in effect. 

If the GO TO has a PN as operand, the 
subroutine will load a segment if it is not 
in virtual storage. 

ILBDSEMl is an alternate entry point to 
the subroutine. If the subroutine is 
entered at ILBDSEMl, the Procedure Block 
for the PN is loaded into register 11, and 
the priority and PN address are calculated 
and loaded into register to simulate the 
linkage to ILBDSEMO; then operation is the 
same as for entry point ILBDSEMO. 

Linkage ; 

For programs for which the optimization 
option (OPT) has not been specified: 

If GO TO with VN as operand: 

L 15, «V (ILBDSEMO) 

L 0,VN# 

BALR 1U,15 

DC X*PTY* 

DC X«00« 

IF GO TO With PN as operand: 

L 15, »V( ILBDSEMO) 

L 0,PN# 

LCR 0, 

BALR 1U«15 
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For programs £or which the optlinlzation 
option (OPT) has been specified} 

If GO TO with VN as operand: 



Linkage : This subroutine is called only 
when the optimization option (OFT) is 
requested and a GO TO DEPENDING ON 
statement is used. 



L 


15,=V(ILBDSEM0) 


L 


0,VN# 


BALR 


14,15 


DC 


X'PTY* 


DC 


X«00' 



If 60 TO with PN as operand: 

L 15,=V(ILBDSEM1) 
BALR 14,15 
DC X* Priority* 
DC X* Block number* 
DC XL2' Displacement of PN from 
block* 



If GO TO DEPENDING ON: 

Control passes to entry point ILBDSEMl 
from subroutine ILBDGDOO with register 
14 pointing to a U-byte parameter list 
as described above. 



Output : There is no output from this 
subroutine. 



GO TO DEPENDING ON (ILBDGDOO, ILBDGDOl, 
ILBDGD02) [CCA] 

Operation : These routines handle 
conditional independent segment refresh. 
ILBOGDOO uses the value of a particular 
data name as an index into a list of 
constants for each PN specified and then 
transfers control to the proper PN. If 
the value of the data name is greater 
than the number of PNs specified, 
control returns to the next instruction 
after the calling sequence. The 
subroutine uses the set of constants to 
determine the address of the PN, loads 
the procedure block for that PN into 
register 11, and then branches to the 
PN. Entry points ILBOGDOI and ILB0GD02 
are called to refresh an independent 
segment when the destination has (or may 
have) a different priority from the 
origin. ILBOGDOI will initialize the PN 
cells of the target segment if it differs 
from the origin and is higher than 49; 
return is to the caller. ILB0GD02 is 
invoked for a PERFORM n TIMES statement; 
it performs a similar initialization 
function, but does not return to the 
caller — rather, it goes directly to the 
destination segment. 





LH 


3, Number of PN*s in lis 




L 


1, Contents of data name 




L 


2, =V (ILBDSEMl) 

or, if the program 
is not segmented. 




SR 


2,2 




L 


15, »V( ILBDGDOO) 




BALR 


14,15 


1 set of 


DC 


X* Priority* 


constants 


DC 


X* Block number* 


for each 


DC 


XL2 • Displacement of PN 


PN 




from bjock* 


specified: 






ILBDGDOl 






IC RO, priority Priority of origin 






segment or, if 


SR 0,0 




origin already 



IC Rl, priority 

L 15,>V(ILBDGD1) 
BALR 14,15 

ILBDGD02 

IC RO, priority 

SR 0,0 



l,org. 



L 
BR 



15,-V(ILBDGD02) 
15 



known to have 
different priority 
from target. 

Target segment 
priority 



Priority of origin 

segment or 

if origin already 

known to have 

different priority 

from target. 

Byte 0« priority o 

target segment 

Bytes l-3» Address 

within target 

segment. 



Output ; There is no output from this 
subroutine. 



DATE, DAY, and TIME (ILBDDTEO, ILBDDTEl, 
ILBDDTE2) [CCB] 

Operation : The subroutine performs thr€ 
functions in response to the use of the 
DATE, DAY, and TIME special registers. 
ILBDDTEO calculates the time in the fom 

hour minute second hundredth-of-a-secon< 
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ILBODTEl calculates the date in the form; 
year month day 

ILBDDTE2 calculates the day in the form: 
year day 

Linkages ; 

ILBDDTEO (for TIME) 

LA 2, receiving field 

(temp storage 2} 
L 1 5, »V( ILBDDTEO) 
BALR 14,15 

ILBDDTEl (for DATE) 

LA 2rreceiving field 

(temp storage 2) 
L 1 5, =V( ILBDDTEl) 
BALR 14,15 

ILBDDTE2 (for DAY) 

LA 2, receiving field 

(temp storage 2) 
L 15,«V(ILBDDTE2) 
BALR 14,15 

Output ; The date, time, or day is placed 
in temporary storage; the compiler then 
generates code to move the date, time, or 
day to the receiving field. 

Calling Information ; Called by compiled 
code. Calls no other subroutines. 



into the 4K blocks retrieved and the 
address of the storage is returned to the 
user. User requests are rounded to the 
next 128-byte boundary. 

ILBDCMMO Linkage ; 

For GETCORE 

L 0, length 

L 15, -V( ILBDCMMO) 

BALR 14,15 

Address returned in Rl. 
For FREECORE; 

L 1, address 

L 15,»V(ILBDCMM1) 

BALR 14,15 

Output ; User regulated blocks of storage 
chained into the storage chain. 



TEST AND COMPARE SUBROUTINES 



The subroutines described below test 
certain characteristics of items in virtual 
storage. Condition codes or return codes 
indicate the results of the test or 
comparison. 



Class Test (ILEDCLSO) 



SUBROUTINES FOR LIBRARY MANAGEMENT 

The subroutines that control storage 
additions or deletions are described here. 



Operation ; This subroutine performs a test 
to determine whether a field is alphabetic, 
external decimal, or internal decimal. The 
field (operand) will be variable length or 
of a length greater than 256 bytes. The 
subroutine uses one of five tables: 



GETCORE/FREECORE Subroutine (ILBDCMMO, 
ILBDCMMl) [CCC] 

Operation ; 

This subroutine will get storage and free 
storage for COBOL library subroutines 
requiring storage additions or 
deletions. A GETVIS is always issued for 
a 4K or larger block. The larger GETVIS 
requests are made when the user's request 
plus chaining needs (8 bytes for each 
block) exceed 4K. All GETVIS block 
requests are rounded to the next 4K 
boundary. User requests are then chained 



ILBDATEO (alphabetic) 
ILBOETBO (signed external decimal) 
ILBDITBO (signed internal decimal) 
ILBDUTBO (unsigned internal decimal) 
ILBDWTBO (unsigned external decimal^ 
numeric edited, 
alphanxsmeric, and 
alphanumeric edited) 



The address of the table is loaded into 
register 2. The tables are 256-byte 
translate tables which enable the 
subroutine to perform testing. 
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Linkage: 



For fixed* length operands: 

L 2, «V (Table) 

L 15,sV(ILBDCLS0) 

BALR 1,15 

DC XLl'Type code* 

DC XL3' Length of item* 

DC ALKbase code) 

DC AL3 (displacement of pointer in TGT 

to data name 
DC XL2* Displacement of item 
from BL address* 

For variable- length operands: 



L 

L 

BALR 

DC 

DC 



DC 
DC 

DC 



2,«V(Table) 

15,sV(ILBDCLS0) 

1,15 

XLl'Type code' 

AL3 (displacement of the 

variable-length cell 

in the TGT) 
ALKbase code) 
ALB (displacement of item 

from above base) 
XL2*' Displacement of item 

from BL address* 



where the type code bits are: 

Bit Meaning, if on 

0-1 Not used 

2 variable-length item 

3 Direct pointer (for example, for 

a literal or TALLY) 
4-7 Not used 

Output : The condition code is set to 
when the test is true, and to nonzero 
when the test is false. 



Note: Substitute one of the following: 
For a variable- length operand: 



DC 
DC 



DC 
DC 

DC 



XLl*Type code' 

AL3 (displacement of the variable- 
length cell in the TGT from the 
base register code) 

ALKbase register code) 

AL3( displacement of base locator 
from above base register) 

XL2* Displacement of item from 
BL address* 



For fixed- length operand: 

DC XLl*Type code* 

DC XL3* Length of operand* 

DC ALKbase code) 

DC AL3( displacement of item from 

above base) 
DC XL' Displacement of item from BL 

address' 

The type codes are: 

Bit Meaning, if on 

Figurative constant 

1 Not used 

2 Variable length 

3 Direct pointer to the Program 

Global Table (for a literal) 
U-7 Not used 

Output : The condition code is set to 
indicate whether Operand-A is less than, 
equal to, or greater than Operand-B. 



Compare Figurative Constant (ILBDIVLO) 



compare (ILBDVCOO) 



Operation : Compares two operands, one or 
both of which are variable in length or are 
greater than U096 bytes in length. When 
control is returned to the object program, 
the condition code is set to indicate 
whether operand-A is less than, equal to, 
or greater than operand-B. 



Linkage : 

L 

BALR 

DC 

DC 



15,«V(ILBDVCO0) 

1,15 

XLIO* Operand-A Information* 

(s^e note) 
XLIO* Operand-B Information* 

(see note) 



Operation : This subroutine compares a 
data-name operand and a figurative constant 
of more than one character. The figurative 
constant is always the second operand. 



Linkage : 

MVC 

L 

L 

LA 

LA 

L 

BALR 



Par am Cell-1,FIGC0N 

0, Length of figurative constant 

1, Length of data name operand 

2, Par am Cell-1 

3, Data name 

1 5, =V (ILBDIVLO) 

ia,i5 



Output: The condition code is set to 
indicate whether the data-name operand 
is less than, equal to, or greater 
than the figurative constant. 
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Comparison with Alternate Collating 
Sequence (ILBDACSO, ILBDACSl) [CCD] 

Operation ; ILBDACSO compares operand 1 
to operand 2 (both unsigned display or 
group) , where operand 1 is either an 
identifier or a literal (other than a 
figurative constant) and operand 2 is 
either an identifier or a literal (other 
than a multi-byte figurative constant) . 
ILBOACSl is similar/ except that operand 
2 is a multi-byte figurative constant 
(that is, all 'XX...' for XX with length 
2 or greater) . 

Linkages ; 

ILBDACSO 



specified UPSI in the SPECIAL NAMES 
paragraph. 



LA 

L 

LA 



LA 
L 



0, operand 1 

1, length of operand 1 

2, operand 2 (omitted if a 1-byte 

figurative constant) 
3, length of operand 2 (0 if a 

lObyte figurative constant) 
13,TGT 
1 5, =V( ILBDACSO) 



BALR 14,15 

In the TGT, #TB1PCS will have been set if 
an alternate collating sequence was 
specified; if so, #TPCSADR points to the 
transfer table. 



ILBDACSl 



0, length of figurative constant 

1, length of identifier 

2, figurative constant 

3, identifier 

13,TGT 

15, =V( ILBDACSl) 



L 

L 

LA 

LA 

LA 

L 

BALR 14,15 



The TGT indicators are the same as for 
ILBDACSO. 

Output ; The condition code is set to 
high, equal, or low, according to the 
result of the comparison. 

Calling Information ; This re-entrant 
routine can be called by either the 
compiled code or by the ILBDINSO 
subroutine. Calls no other subroutines, 
In the TGT of ILBDACS's caller, #TB1PCS 
will have been set on if the user 
specified an alternate collating 
sequence; if so, #TPCSADR points to the 
transfer table. 



UPSI (ILBDUPSO) 

Operation : This subroutine initializes the 
UPSI bytes in the TGT. It is called at the 
beginning of the program, if the user has 



Linkage ; 

L 
BALR 



15, «V (ILBDUPSO) 
14,15 



Output : If the UPSI bit is on., the 
corresponding byte in the TGT is set to 
X'Pl'j otherwise, it is left at X'FO*. 



Linkage (ILBDSETO) 

Operation : This subroutine sets the 
switch byte of the Program Indicator 
subroutine (ILBDMNSO) to X'PP*. The 
linkage subroutine must be called by any 
program which is not an American National 
Standard or DOS/VS COBOL program before 
that program calls an American National 
Standard or DOS/VS COBOL subprogram. The 
name of this subroutine can be changed to 
any name specified by the user. 

Linkage: 

L 13,A(Savearea) 

L 15, =V( ILBDSETO) 

BALR 14,15 

L 15, =V( COBOL subprogram) 

BALR 1U.15 

Output : The switch byte of subroutine 
ILBDMNSO is set to X'FF*. 



Program Indicator (ILBDMNSO) 

Operation : This subroutine contains a 
number of disparate items. 

1. A one-byte switch used to indicate 
whether the program is a main program 
or a subprogram. 

2. A flag byte containing: 

a. An alternate index build flag. 

b. A debug switch. 

3. A pointer used as an anchor for the 
chain of storage obtained by the 
subroutine ILBDCMMO. 

4. A pointer to the currently being used 
storage area. 

5. The CSECT ILBDPRMO used to access 
sysPARM bytes using the COMRG macro, 
and to set the flags in the flag byte. 

Linkage to ILBDPRMO : 

L 15, -V( ILBDMNSO) 
LA 15,16(15) 
BALR 14,15 
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Output ; 
1. 



2. 
3. 



Main switch byte is set to X'FP' by a 
main program. Subprograms do not 
a££ect it. 

Set by step 4. 

Set by ILBDCMMO to the address of the 
first block of storage obtained. 



4. Sets the flags in step 2 above. 



TIME-OF-DAY and CURRENT-DATE Subroutine 
(ILBDTODO) 



Operation ; This subroutine,, in response to 
the use of the TIME-OF-DAY special 
register, issues the GETIME macro 
instruction and calculates the time of day 
of the execution of the program. In 
response to the use of the CURRENT-DATE 
special register, the subroutine issues the 
COMRG macro instruction and calculates the 
date of the execution of the program. 



Linkage : 

TIME-OF-DAY 

LA 2 .receiving field 

LH 3, length of receiving field 

LNR 3,3 

L 15, =V (ILBDTODO) 

BALR 14,15 

CURRENT-DATE 

LA 2, receiving field 

LH 3, length of receiving field 

L 15, =V( ILBDTODO) 

BALR 14,15 

Output ; The time in the form of 
hour/minute/second (HHMMSS) or the date in 



the form either of day/roonth/year 
(DD/MM/YY) or of month/day /year (MM/DD/YY) 
is stored in the receiving field. The form 
of the date is set at system generation 
time. 



SYMDMP Address Test (ILBDADRO) 



Operation : This subroutine tests the 
validity of an address calculated for a 
subscripted identifier or the validity of 
the starting and ending addresses of a 
variable-length identifier used as a 
receiving field in a MOVE instruction. The 
subroutine determines vihether the address 
lies within a data area for any of the 
current programs in the run unit. Checking 
for valid addresses is only performed when 
all programs in the run unit are American 
National Standard or DOS/VS COBOL programs. 
The subroutine has two entry points. 

It is called at entry point ILBDADRO 
from the inline code generated to calculate 
the address of a subscripted item. 

It is called at entry point ILBDADRl 
from subroutines ILBDVMOO and ILBDMOVO 
before a variable-length MOVE instruction. 

Linkage : 

From generated code: 

LR 0, register containing data-name 

address 
L 15, =V( ILBDADRO) 
BALR 14,15 

From subroutines ILBDMOVO and ILBDMVOO: 

LR 0, register containing data-name 

address 
LR 1, register containing length 
L 1 5, =V( ILBDADRl) 
BALR 14,15 
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Output : If the address or addresses are 
valid, control is returned to the caller. 
If the address or addresses are invalid, an 
error message (C170I - INVALID ADDRESS) is 
written on SYSLST and subroutine ILBDMP20 
is called to produce a symbolic dump. 



GENERAL DATA MANAGEMENT SUBROUTINES 



The subroutines described below perform 
certain I/O operations^ such as, , accepting 
and displaying information* opening and 
closing files. 



DISPLAY (ILBDDSPO) IEA3 



Operation ; This subroutine is used (in 
conjunction with ILBDDSSO) to print, punch, 
or type data, usually in limited amounts, 
on an output unit. TRACE and EXHIBIT are 
special kinds of DISPLAY. The acceptable 
fo3cms of data for this subroutine are: 

1. Display 

2. External decimal 

3. Internal decimal 
U. Binary 

5. External floating-point 

Internal decimal and binary are converted 
by the subroutine to external decimal. 
Internal floating-point numbers are 
converted to external floating-point before 
the subroutine is called and placed in the 
PARAM cells of the TGT. 

Note ; When OPT has been specified, 
subroutine ILBDDSSO is sometimes called 
instead of subroutine ILBDDSPO. See 
"Optimizer DISPLAY (ILBDDSSO)" below. 

When NOOPT is in effect or the ILBDDSSO 
criteria cannot be met, ILBDDSPO is called. 
This causes ILBDDSSO to be included at link 
edit time. At object time the two 
stibroutines act as a superset of the 
DISPLAY function. (See the ILBDDSPO and 
ILBDDSSO flowcharts for a visual 
representation of this interaction.) 

Linkage ; 

For DISPLAY, the linkage is: 

LA 

L 



2, =C( PROGRAM- ID) 

(If DISPLAY on SYSPCH) 
15, =V (ILBDDSPO) 
or 



L 15, sV (ILBDDSSO) 

BALR 1,15 

DC XL2" Device code' 

(See Note 1) 
operand information 

(See Note 2) 



DC 



(Parameters) 
X'FPFF" 



For TRACE, the linkage is; 

L 15, *V (ILBDDSPO) 

or 
L 15, *V (ILBDDSSO) 
BALR 1,15 
DC XL2« Device code' 

(See Note 1) 
DC X* 40* (Type code) 

(See Note 3) 
DC X'5'' 
DC XL6 (EBCDIC generated card 

number) 

For EXHIBIT, the linkage is: 



(Test coding if CHANGED 
case) 
L 15, =V (ILBDDSPO) 
or 

L 15, «V (ILBDDSSO) 
L 2, A (Switch) 

(See Note 4) 
BALR 1,15 
DC XL2* Device code* 

(See Note 1) 
operand information 

(See Note 2) 



DC 



(Parameters) 
X'FPFF" 



Note 1 ; The device codes specify the 
device to be used. They are: 

Cod e Device 
1 



SYSLST 
CONSOLE 
SYSPCH 
SYSIPT 



Note 2 : The operand information describes 
each item and has one of the following 
three formats; 

1. Fixed length, ready to display: 

DC XLl'Type code* 

(See Note 3) 
DC XL3" Length of item* 
DC ALl (base code) 

(See Note 5) 
DC AL3 (displacement of pointer 

in TGT to data-name or 

displacement of literal 



32.6 General Data Management Subroutines 



Licensed Material - Property of IBM 



General Data Management Subroutines 

The following subroutine has been added. 

ILBDTABO 

Operation t This subroutine contains a table of device-dependent 
information for tape or mass-storage devices and a search routine 
to get the table entry corresponding to the caller's parameter. 
The parameter may be either a PUB device code or a DTF device code. 

Linkage : 

L 1, "A (search argument) 

L 1 5, «V( ILBDTABO) 

BALR 14,15 

DC AL1 (indie) (See Note 1) 

DC AL1 (default) (See Note 2) 

Note 1 ; indie is an index into branch vector, which 

indicates whether the parameter pointed to by 
register 1 is a PUB code (indic«>0) or a DTF 
code (indic"4) . 

Note 2 t default is an alternate search argument to use 
instead of the parameter in register 1 if the 
search does not yield a match for the parameter. 
Specify 255 if you do not want the default. 

Output ; Register 1 contains the address of the table entry 
containing the information corresponding to the caller's 
parameter. If the search is unsuccessful, register 1 is set to 0. 
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DC 



text or TALLY) 
XL2' Displacement' 



2. Fixed-length binary or internal 
decimal (conversion is required) i 

DC XLl'Type code* 

(See Note 3) 
DC XLl* Length of input item* 
DC XL2* Length after conversion" 
DC ALKbase code) 

(See Note 5) 
DC AL3 (displacement of item 

from above base) 
DC XL2 'Displacement* 

3. Variable length: 

DC XLl*Type code* 

(See Note 3) 
DC AL3 (displacement of the 

variable- length cell in 

the TGT) 
DC ALKbase code) 

(See Note 5) 
DC AL3 (displacement of item 

from above base) 
DC XL2" Displacement* 

Note 3 ; The type code bits are: 

Bit Meaning, if on 

Not used 

1 TRACE item 

2 Variable length 

3 DIRECT pointer (for example, 

for a literal TALLY) 
U-5 See below 

6 Internal decimal item 

7 Binary item 

If bits 4 through 7 are all on, the item 
is numeric, ready to display. If bits U 
through 7 are all off, it is nonnuroeric. 

Note 4 : The switch indicates whether or 
not an item should be exhibited. It is a 
2 -bit switch and corresponds to either one 



or two 10-byte operands. Figure 5 gives 
the switch codes, an indication of whether 
SEGl (the first operand) is an alphanumeric 
literal, the meaning of codes, and the 
action that is taken. 

An overriding situation occurs to the 
conditions in Figure 5 if register 3 
contains a zero when the subroutine is 
called, indicating the first-time through 
requirement for the EXHIBIT CHANGED (NAMED) 
case. It is assumed that the second bit of 
the switch is on and only the first three 
conditions can occur. 

Note 5 : The base code indicates a register 
which contains a pointer to the TGT or the 
PGT. 

Output ; Lines of print via a PUT on the 
printer or the card punch, or via an EXCP 
on the console. 



Optimizer DISPLAY (ILBDDSSO) [EBl 



Ope 
thi 



eration : When OPT has been specified. 



.s subroutine is used to print or type 
data of a certain kind on SYSLST or the 
console, respectively. Acceptable. forms of 
data are the same as those listed for the 
IL6DDSP0 subroutine except the following: 

f loating-pont data-names; 

floating-point literals; 

variable-length items; 

any DISPLAY verb where the sum of the 
operand lengths exceeds 120 bytes 
for SYSLST or 100 bytes for the 
console; 

any DISPLAY UPON SYSPCH. 

Note: When any of the above items are to 
be printed, or typed, subroutine ILBDDSPO 
is called together with Subroutine 
ILBDDSSO. 



T -"— T T 

I First segment] | 

j Alphanumeric | | 
Switch i Literal j Meaning j Action 
+ + .+ 

01 or 00 1 — I Source literal or j Display as •SEGl* (up to 10 bytes) 

I I figurative constant! 
+ + + 

11 I yes j Named, changed | Display as *SEG1 = SEG2' (up to 20 bytes) 
^ +^ + + 

11 I no I Not named, changed | Display as *SEG1' (up to 10 bytes) 
+ + + 

10 I yes (Named, not changed (Nothing displayed (up to 20 bytes) 
+ + + 

10 I no I Not named, not (Display n + 1 blanks when n is the length 
I i changed ( of SEGl (up to 10 bytes) 

J. X X 



H- 



H- 



Figure 5. Switch codes for Display 
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Linkage t The linkage to this subroutine is 
the same as the linkage to subroutine 
ILBDDSPO. 



Output ; Lines of print via a PUT on the 
printer or via an EXCP on the console. 



ACCEPT (ILBDACPO) I EC] 



Operation ; Services ACCEPT and STOP 
literal statements. For ACCEPT, a record 
is read from SYSIPT or the console. 
Lowercase alphabetic characters accepted 
from the console are translated to their 
uppercase equivalents. For STOP, the 
literal is typed on the console. 



Linkage ; 

L 

BALR 

DC 

DC 

DC 



DC 



DC 



15, =V( ILBDACPO) 

1,15 

XL2 'Device code* 
(See Note 2) 

XLl'TYPE* 

(See Note 1) 

XL3*MNN» (If binary or internal 
decimal, M=length of input 
item and NN= length of conver- 
ted result. If variable-length 
the three bytes are an ADCON 
pointing to the VLC-CELL. 
Otherwise, the three bytes are 
the length. ) 

ALU(base locator) 
or 

ALU (operand-text) 

(if bit 3 of TYPE is set) 

XL2* Displacement of text 
from base* 



Note 1 ; The TYPE bits are: 

Bit Meaning, if on 

0-1 Not used 

2 Variable-length 

3 Pointer ADCON is direct 
U-7 Not used 

Note 2 ; The device codes specify the 
device to be used. They are: 



Code 

X'0002' 

X'OOOa* 



Device 

CONSOLE 

SYSIPT 



Checkpoint (ILBDCKPO) [ED] 



Operation : This subroutine builds a table 
of pointers to DTF's of all magnetic tape 
units used in the problem program and its 
subprograms, and issues a CHKPT macro 
instruction, which will write checkpoint 
records on a user specified tape or disk 
checkpoint device. 



Linkage : There are three sequences: 

1. The first call, made during 
initialization is: 

L 1 5, =V( ILBDCKPO) 
CNOP 2, U 
BALR ia,15 

DC XLS'O' (See Note) 

DC A(DTFPTR-l) 

(address of first DTF cell) 
DC A(DTFPTR-n) 

(address of last DTF cell) 



2. 



When the specified number of records 
of the RERUN file has been read or 
written, the subroutine is called 
again, as follows: 

L 15,=V(ILBDCKP1) 

BALR 14,15 

DC X«N» 

DC XL7 •External name* 

During a sorting operation requiring 
checkpoints the SORT subroutine calls 
this subroutine as follows: 

L 1, A (Physical IOCS list) 
L 15,=V(ILBDCKP2) 
BALR 10,15 



Note ; If SORT RERUN is specified, 
substitute the following two instructions; 



3- 



DC 
DC 



X'N' 

XL7* External name* 



where: 



is the unit number of the checkpoint 
device, and 

External name 

is the external name of the checkpoint 
file or SYSxxx if no external name is 
used. 



For a STOP literal, the first byte of 
the device code is X'80'. 

Output ; The record accepted is placed in 
the operand specified. If it is a STOP 
literal, the message is typed on the 
console. 



Output : For DTFMT*s, the DTF address is 
placed in a parameter list for CHKPT, and 
the macro instruction is issued. For more 
details on this macro instruction, refer to 
IBM DOS/VS Supervisor a nd I/O Macros 
Reference, Order No. GC33-5373. 
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OPEN ACCEPT File (ILBDASYO) [EE] 



Operation : This subroutine ensures that 
SYSIPT is open. It is called if there is 
an ACCEPT FROM SYSIPT statement in a label 
declarative. 



Output ; A iressage is issued stating that 
an attempt has been made to reopen a file 
that was closed with a lock and the job is 
terminated. 



User Standard Labels (ILBDUSLO) [EH3 



Linkage : 

L 15, =V( ILBDASYO) 
BALR 114,15 

Output ; SYSIPT is opened if it was not 
already opened. 



OPEN DISPLAY File (ILBDOSYO) CEF3 



Operation : This subroutine enables the 
user to write or check user standard 
labels. It determines the label condition 
(BOF, BOV, EOF, or EOV) and branches to the 
appropriate user procedure. 

Linkage ; None. The address of this 
subroutine is in the DTF and is branched to 
from LIOCS. 



Operation : This subroutine ensures that 
SYSLST or SYSPCH or both are open. It is 
called if there is a DISPLAY UPON SYSLST or 
a DISPLAY UPON SYSPCH or both in a label 
declarative. 



Linkage : 

L 

BALR 

DC 



15, =V( ILBDOSYO) 

I't.lS 

X'NNNN* 



Output ; Register is set to decimal 8, 
12, 16, or 20 depending on entry conditions 
(EOF, EOF, EOV, BOV, respectively). 
Register U points to the DTF. If there are 
tape output files and no user procedure, 
the COBOL label bit is turned on to 
indicate to LIOCS that no labels are to be 
written. 



Nonstandard Labels (ILBDNSLO) [EI] 



where; 

•NNNN* = 'aOOO* 

if both DISPLAY'S are used 

•KNNN* a •2000* 

if the device is SYSLST 

•NNNN' s •1000* 

if the device is SYSPCH 

output : SYSLST and/or SYSPCH is opened if 
it was not already open. 



Close With Lock (ILBOCLKO) [EG3 



Operation ; This subroutine receives 
control only when an OPEN is to be executed 
for a file and a CLOSE WITH LOCK for that 
file is specified anywhere within the 
program. The Pre-DTF switch is tested to 
determine if the file was closed with lock; 
a X'FF* indicates it was. If the file was 
not closed with lock, control is returned 
to the COBOL program. If it was closed 
with lock, the subroutine issues an error 
message and the job is terminated. 



Linkage : 

L 
L 
BALR 



l.DTFPTR 

15,«V<ILBDCLK0) 

14,15 



Operation : This subroutine reads and 
writes nonstandard labels and branches to 
the appropriate user label"^ processing 
routine. It writes a tape mark after the 
last trailer label on each output reel. 



Linkage 
1. 



One of the following: 



When the entry is from LIOCS, the 
entry point will be ILBDNSLO) . 



2. When the entry is from a user 
procedure and return is to the 
procedure: 

L 15,=V{ILBDNSL1) 
BR 15 

3. When the entry is from a user 
procedure and return is to LIOCS: 

L 15,=V(ILEDNSL2) 
BR 15 

Output : Register U points to the DTF and 
Register 1 to the label area. 



Error Messages ($$BCOBER) [EJ3 



Operation : This subroutine prepares 
input/output error messages to be printed 
by the Error Message Print Subroutine 
($$BC0BR1) . After preparing the error 
message, it places the address cf the 
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message in register 0. Then it fetches 
$$BC0BR1, overlaying itself. See the 
descriptions of ILBDSAEO, ILBDISEO, and 
ILEDDAEO. 

Linkage ; 



LA 


4,DTF-8 


LA 


O.ERRCODE 


SLL 


0,2a 


OR 


o,u 


LA 


1,=C'$$BC0BER« 


SVC 


2 


Output ; 


Register cont 



contains the address of 
an error message to be written by $$BC0BR1 
on SYSLOG or SYSLST. 



Error Message Print ($$BC0ER1) [EK] 



Operation ; This subroutine prints the 
input/output error messages prepared by the 
Error Messages Subroutine ($$BCOBER) and 
provides a dump if the DUMP option is in 
effect. After the subroutine prints the 
error message, it tests the DUMP bit. If 
the bit is on, it calls the $$BPDUMP 
Subroutine via a SVC 2 instruction. If the 
DUMP bit is off, $$BC0BR1 returns control 
to the routine which fetched $$BCOB£R. In 
either case the fetching routine determines 
if the job should be cancelled or control 
transferred to the Debug Control subroutine 
(ILBDDBGO). See the descriptions of 
subroutines ILBDSAEO, ILBDISEO, and 
ILBDDAEO for further information on 
input/output error handling. 



Linkage ; 

LA 
SVC 



l,=C"$$BCOBRl* 
2 



Note: Register contains the address of 
the message to be printed. 

Output ; An error message on SYSLOG and/or 
SYSLST and, optionally, a PDUMP. 



SYMDMP Error Message ($$BCOBEM) [EL3 



Operation ; This subroutine (a transient) 
puts the correct error message into the 
buffer of the PRINT routine (ILBDDBGl). 
When this subroutine is fetched by the 
PRINT routine, register contains the 
error number in the high-order byte and the 
address of the buffer in the low-order byte 
and the address of the buffer in the low- 
order three bytes. If the error number 
does not fall within the range of errors 
contained in the subroutine, control is 
returned to the fetching program. 



Linkage ; 

L 

LA 
SVC 



0,CURRBUFF Error code and buffer 

address 
1,C»$$BC0BEM' 
2 



Output ; An error message on SYSLST. 



3886 Optical Chara cter Reader (OCR) 
Interface (ILBDOCRO) [Chart EM3 



Operation ; ILBDOCRO handles all 
input/output operations with the 3886 
Optical Character Reader and builds the OCR 
File Control Block required for this 
purpose. The subroutine receives control 
from the COBOL program via the CALL 
statement with the USING parameter for 
action requests and from the DOS/VS system 
for error recovery and end-of-file 
condition. 

For an action request the functions of 
the subroutine are as follows: 

• Validate operation code (See Note 1) 

• Validate OCR-file identification by 
searching OCR File Control Block chain 

• Test for valid sequence of WAIT and 
READO operations 

• Call action routine to issue 
appropriate macro instruction for 
request (see Note 1) 

• Build OCR File Control Block (via 
GETVIS) for OPEN requests and release 
OCR FCB (Via FREEVIS) for CLOSE 
requests 

• Set Status Key (See Note 2) 

Note 1 ; Valid OCR operations and the 
DOS/VS macro instructions issued for each 
are listed below: 



OCR-operation 

OPEN 

CLOSE 

READ 

READO 

WAIT 

SETDV 

MARKL 

MARKD 

EJECT 



DCS/VS macro instruction 

OPEN 

CLOSE 

READ and WAITF 

READ 

WAITF 

SETDEV 

CNTRL 

CNTRL 

CNTRL 



Note 2 ; The status key contains a 
completion code returned to the COBOL 
program. The codes, their meanings, and 
the action requests which generate them are 
listed below: 
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icode 


Meaning 


1 Action Request | 
.-+ i 

JOPEH, CLOSE, READ, j 
JREADO, WAIT, MARKL, j 
JMARKD, EJECT, SETDV j 

.-+ ^ 

jREAD, WAIT, MARKL, | 
JMARKD, EJECT, SETDV j 


1 00 
1 


Successful 
completion 


r- -1 
1 10 


End-of-file 


^ 


..—...— ._».—. 


.—J.. — ._.. ■———«.—.——»— ~^ 


1 31 


Mark Check 


1 EJECT 1 


1 32 


Nonrecovery 
error 


{READ, READO, WAIT, ] 
1 MARKL, MARKD, EJECT, j 
1 SETDV 1 


i 33 

^ 

1 34 

1 39 

1 92 
• 


Znconplete 
Scan 

Mark Check & 
Equipment 

Check 

1 


{READ, WAIT 1 
i 1 

.-+ 4 

EJECT j 

1 

1 

READ, READO, WAIT, ) 
MARKL, MARKD« EJECT, j 
SETDV j 

OPEN, CLOSE, READ, ] 
READO, WAIT, MARKL, j 
MARKD, EJECT, SETDV j 


Permanent 
error 

1 


Logic error 


r-- — 1 
I 93 

1 95 

^ — 

1 99 


Insufficient 
storage 


OPEN I 

1 

OPEN, READ, READO, | 
MARKL, MARKD, EJECT | 


Invalid 
Parameter 


Unrecognizable! | 
operation j | 



Linkage : Called by compiled code for the 
CALL statement. 



SAM I/O Subroutine (ILBDSIOO) [F] 

Operation ; 

A single entry, ILBDSIOI, for 
initialization of SAM XDTF entry, save 
registers, and sets the READ, WRITE, 
REWRITE, and WRITE ADVANCING entry points 
to the logic error internal address 
(RETLOGST) within ILBDSIOO. The ILBDSIOl 
entry point is invoked from the inline 
code during INIT3 processing. Any 
non-SAM DTPS found during initialization 
processing are bypassed. 

A single entry, ILBSDIOO, for all 
open/close requests, save registers, and 
then transfer to the appropriate action 
routine for the request, as follows. 

On each OPEN/CLOSE request from the 
inline code, a single SAM DTP address and 
the specified OPEN/CLOSE Option are 
passed to entry point ILBDSIOO. 

If the request is for OPEN, the OPEN 
PROLOG processing section is entered. 
There, the single XDTF control block for 
the file is obtained by using the SAM DTF 
address. The XDTF is examined to ensure 
that no logic error is involved in the 
request. If a logic error is 
encountered, this fact is noted in the 
status key (when present) and in the XDTF 
field XDTFSTAT. 

If CLOSE with LOCK has occurred for this 
file and file status was not specified, 
ILBDSIOO calls ILBDCLKO to send a message 
and terminate the run unit. 

If LINAGE was specified, those values are 
saved via ILBDSPAl. 



Note: The user must set appropriate fields 
in the identifier data area before issuing 
the CALL statement with the USING option. 
(Refer to the 3886 statement in IBM D03/VS 
COBOL Programmer's Guide , Order 

No. GC28-6a78.) 

Output ; The OCR File Control Block is 
built in virtual storage; the indicated 
action request is performed; a return code 
is entered in the Status Key field of the 
OCR file data area. 



Lastly, the DOS data management 
OPEN/CLOSE function is invoked. The DTF 
address is placed in registers and 4, 
and the OPEN or CLOSE macro is issued 
after the inline registers are restored. 

Upon successful return from the 
OPEN/CLOSE function, and either the OPEN 
or CLOSE EPILOG section of ILBDSIOO is 
entered before returning to the inline 
COBOL code. 



SEQUENTIAL ACCESS DATA MANAGEMENT 
SUBROUTINES 



The subroutines described below handle 
some special I/O operations for the 
sequential access method. 



In the OPEN EPILOG, for any SAM DTF file 
opened for input or input/output, the 
appropriate EOF address in the DTF is set 
to an internal ILBDSIOO address. This 
address is used for further EOF file 
processing when the EOF condition 
occurs. The user's EOF GN address is 
placed in the XDTF control block in line 
code for executions for READ. 
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If the file is DTFMT, multi-file reel 
with labels omitted, ILBOMVEO will set 
the EOF status, and the address of 
ILBDMOEO (set by phase 21) is not replaced. 

If the file is DTFSD open for output, the 
internal address of the ILBDSIOO code for 
end of extent processing is placed in the 
DTFSD at the appropriate address. 

The invalid key address is placed in the 
XDTF control block during execution of the 
inline code for VJRITE. If the end of 
extend condition occurs, ILBDSIOO passes 
control to the specified user procedure. 

Finally, the transfer address to be used 
by the inline READ or WRITE code 
expansion is set to the appropriate 
values corresponding to the OPEN mode 
requested. 

For files with nonzero initial 
LINES-AT-THE-TOP, ILBDSIOO invokes 
ILBDSPAl to space the specified number of 
lines during processing of the first 
WRITE request for the file. At this 
point, OPEN processing is complete, the 
inline registers are restored, and 
control is returned to COBOL inline code. 

The CLOSE EPILOG processing section frees 
the work area obtained during OPEN 
processing. 

The inline code expansions for I/O action 
requested use the READ, WRITE, REWRITE, 
and WRITE with ADVABCUBG entry points set 
during OPEN processing in the XDTF. 

The choice of entries set by OPEN is 
determined by the OPEN mode requested, 
file status specification, and the type 
of records in the file. 

All I/O requests (non-advancing) for 
variable block records are handled via 
calls to ILBDVBLO. Other record types 
are handled by the appropriate DOS data 
management GET or PUT macro interface. 

Requests for WRITE ADVANCING are routed 
via ILBDSPAl. 

If EOF, end of extent, or logic errors 
occur, the appropriate action to exit to 
the user GN address is taken, after file 
status is set. 

ILBDSIOO also invokes the user error 
declaratives when the appropriate 
condition occurs. The user declarative 
addresses are found in pre-DTF control 
block. 

ILBDSAEO still invokes the user I/O error 
declaratives, but ILBDSIOO sets the file 
status and determines the inline return 
point. 



ILBDSIOO Linkages 

Entry Point ILBDSIOl 

Purpose ; Handles initialization of SAM 
XDTF. 

Linkage : Called by inline code (from 
INIT3 code) . 

R14 B points to 4-byte inline parameter 
R13 « loaded with TGT address 
R12 « loaded with PGT address 

The parameter list contains: 

HWORDl - displacement of first DTF cell 

in TGT 
HW0RD2 - number of DTF cells in TGT 
- (end of parameter list 

return point) 

Input : See Linkage above. 

Output : Requested initialization 
operation is performed on various areas 
of XDTF. The I/O transfer address in the 
XDTF is set to its initial "logic error" 
values. 

Entry Point ILBDSIOO 

Purpose : Entry point for OPEN/CLOSE 
requests and CLOSE UNIT requests. Called 
by inline expansion of OPEN/CLOSE verbs. 

Rl > address of parameter list 

for OPEN/CLOSE request 
R14 « return address 
R13 « TGT address 
R12 « PGT address 

Note: Where appropriate, R2 contains 
address of BL cell for the file. 

The parameter list contains (word 
boundary) : 



Bytes 1-4 
Byte 5 



Byte 5 



address of DTF 

option byte for OPEN 

0123 4567 bit positions 

0000 0000 input 

0000 0001 input, no rewind 

0000 0010 input, reversed 

0000 0011 input, reversed 

no rewind 
0000 0100 output 
0000 0101 output, no rewind 
0000 1100 I/O 

option byte for CLOSE 



0123 4567 
0000 0000 
0000 0001 
0000 0010 
0000 1000 
0000 1001 



bit positions 
close rewind 
close no rewind 
close lock 
close reel rewind 
close reel, no 
rewind 
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Byte 6 



command byte 



0123 4567 
0001 0000 
0001 0100 
0001 1000 



bit positions 
OPEN request 
CLOSE request 
CLOSE reel/unit 
request 



The above parameter list is generated 
inline and pointed to by register 1. 

Note ; The generated inline code still 
sets the appropriate DTF bits £or the 
rewind function in the OTF fields, and 
the pre-DTF byte for open mode, in order 
to maintain existing interfaces to other 
library routines (i.e. label handling, 
etc. ) . 

Linkage : Called by inline code 
expansions for I/O action verbs READ, 
REWRITE, WRITE, and WRITE WITH ADVANCING. 

Purpose ; I/O function support for action 
verbs. The action verbs are invoked by 
the inline code via a transfer vector 
that is up in XDTF, the DTP extension 
control block of SAM files at open and 
close. 

For READ: 

Rl = address of DTF 

R2 > BL address of record (if 

appropriate) 
R4 » address of the XDTF 
R14 B return address 
R15 > address that is in XDTFRD 

For REWRITE: 

Rl = address of DTF 

R2 ' BL address of record (if 

appropriate) 
R4 = address of XDTF 
R14 = return address 
R15 s address that is in SDTFRW 

For WRITE (without advancing) : 

Rl = address of DTF 

R2 - BL address of record (if 

appropriate) 
R4 = address of XDTF 
R14 s return address 
R15 s address that is in XDTFWR 

For WRITE (with ADVANCING clause) : 

*R0 s address of record if AWO 
*R1 = address of DTF 
*R2 =» BL address of record 
*R3 ■ length or record 
*R4 " address of XDTF 
R14 s return address 

+4 if ID not specified 

+8 if ID is specified 
*R14 +0 address parameter list 

* The contents of the registers and the 
option byte setting are those specified 
for module ILBDSPAO, which is called by 



ILBDSIOO to support WRITE WITH ADVANCING 
Statements. 

Note: In the case of the WRITE ADVANCING 
data name identifier, the address of the 
identifier is placed in the inline 
generated code parameter list. ILBDSIOO 
loads the address of the identifier prior 
to the call to ILBDSPAl. 

Parameter list for WRITE WITH ADVANCING: 



Byte 



1 parameter 1 
0123 4567 

yy 

00 
01 
10 



00 
01 

10 



bit positions 

remainder of integer/3 

integer 

identifier 

mnemonic 

S/370 control 
characters 

1 ASA CC, no befores for 
file at all 

BEFORE, this statement 

1 AFTER, this statement 
binary identifier 
packed decimal 
identifier 

zoned decimal 
identifier 



Byte 



Byte 



2 parameter 2 
0123 4567 
zz 



3 parameter 3 

0123 4567 

0000 

0001 

0010 

0100 

1000 



bit positions 
either mnemonic skip 
code, or quotient of 
integer/3 or length 
of identifier in 
digits. 

bit positions 

fixed length record 

variable unblocked 

variable blocked 

(not AWO) 

undefined 

apply write only 



Byte 4 



parameter ' 
0123 4567 
0001 



bit positions 
with code (RW 
specified) 

1000 advance page 

0100 EOP 

0010 positioning 

Bytes 5-8 address of identifier, if 
specified 

Interface : Same as interface to ILBDSPAO 
except ^or bytes 5-8, which contain the 
address of the identifier. This address 
is passed to ILBDSPAO in register 4. 

XDTF, PREDTF, and DTF Control Block 
Structure 

Only one XDTF control block, is generated 
for any SAM file. (This control block is 
generated in phase 21.) The XDTF control 
block contains those fields necessary to 
support SAM I/O with file status and 
linage clause. 
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The XDTF contains a transfer address for 
each of the following I/O action verbs: 
READ, REWRITE, WRITE, and WRITE WITH 
ADVANCING clause. The XDTF control block 
also contains status fields and the 
user-specified EOF and end of extent 
addresses. 

For a file opened only one way in the 
program, a DTF control block is generated 
for the file. The SAM DTF control blocks 
are DTFCD, DTFMT, DTFPR, DTFSD, and DTFDU. 

Preceding the DTF control block is the 
pre-DTF control block associated with 
that DTF. The pre-DTF control block 
contains the pre-DTF status byte, the 
error declarative address, and the label 
declarative address. These pre-DTF 
control blocks have been adjusted in size 
for all SAM DTFs, and an address field 
has been added that contains the address 
of the single XDTF control block for the 
file. The presence of the XDTF control 
is indicated by setting the XDTF bit in 
the PCE-DTE byte to one (this is done by 
ILBDSIOO at open) . 

Since the address of the XDTF is now 
always at a known offset in the pre-DTF 
control block, the XDTF address can 
always be located from the DTF address. 

On all I/O action requests from inline 
source code, the XDTF address is found in 
register 4 and the DTF address is found 
in register 1. 

For any given SAM DTF, the pre-DTF and 
DTF control are in contiguous storage. 
If the file is opened in only one way in 
the COBOL program, the XDTF control 
precedes the pre-DTF, DTF pair in 
storage. For files opened in more than 
one way, there are multiple pre-DTF, DTF 
control blocks generated; a pre-DTF, DTP 
combination for each way the file is 
opened . 

There is only one XDTF control block 
generated for each file. The address of 
this control block is found in each 
pre-DTF control block. 

The primary DTF field in the DTF is 
initialized with the address of the DTF 
that has the XDTF control block 
associated with it. This is the only 
XDTF control block generated for that 
file. 

For example, if the DTFMT file is opened 
for INPUT, OUTPUT, and INPUT-REVERSED in 
the same program, then the INPUT pre-DTF, 
DTF pair will have the XDTF control block 
associated with it in contiguous storage 
and that its DTF address is placed in the 
TGT DTF address slot. 

The other pre-DTF, DTF structures for 
OUTPUT and INPUT -REVERSE will be 



generated and the address of each will be 
found in the pre-DTF control for each 
structure. 

The address of these pre-DTF, DTF pairs 
is located via the secondary DTF pointers 
in the PGT. Note that the primary DTF 
combination also has a secondary cell 
associated with it. Prior to any 
OPEN/CLOSE request, the secondary DTF for 
the specified file is moved to the 
primary cell in the TGT. Register 1 is 
always loaded from the primary DTF cell. 

SA Printer Spacing (ILBDSPAO) [FA] 

Operation ; This subroutine performs 
printer spacing; that is, it handles the 
WRITE statement with the ADVANCING 
option. It calls subroutine ILBDVBLO to 
write variable-length blocked records. 

Entry point ILBDSPAl is called by 
ILBDSIOO to handle WRITE ADVANCING 
together with any linage clause 
information from the XDTF for the file. 
If LINES-AT-THE-TOP is specified for the 
file, ILBDSPAl writes the necessary blank 
lines together with the first write 
request. 

In simple cases, ILBDSPAl issues a PUT 
macro directly to write the line. 
Otherwise, it creates an appropriate 
parameter list and calls ILBDSPAO to 
perform the writes. ILBDSPAO is also 
called directly from inline code to 
process WRITE ADVANCING in LANGLVL(l) 
programs. 

Linkage ; 

L 0, A (Record) (If APPLY WRITE-ONLY) 

L 2,BUFPTR (If no APPLY WRITE-ONLY) 

L 4,A(Identifier) 

L 1,DTFPTR 

L 3 , RECORDLEN 

L 1 5, «V( ILBDSPAO) or (ILBDSPAl) 

BALR 14,15 

DC B' 01234567' (see note 1) 

DC X'ZZ' (see note 3) 

DC B'01234567' (see note 2) 

DC B'0123a567' (see note 4) 



Note 1 ; Substitute binary digits as 
follows: 

For 01: 00 if a binary indentifier 
01 if a packed decimal 

identifier 
10 if a zone decimal 
identifier 

For 2: if before 
1 if after 

For 3: if System/360 control 
character 
1 if ASA control characters 
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For U5: 00 if integer 

01 if identifier 
10 if ronernonic 

For 67: The remainder of integer/3- 

Note 2 : Substitute binary digits as 
follows i (1, 2, and 3 are not used): 



For 0: 



1 if ASCII file 



For 4567: 0100 if undefined 

1000 if APPLY WRITE-ONLY 

0000 if fixed 

0001 if variable unblocked 
0010 if variable blocked 

(not APPLY WRITE-ONLY) 

Note 3 : ZZ = mnemonic skip code* or 
quotient of integer/3, or length of 
identifier. 



SA Error (ILBDSAEO) [ FC] 

Operation ; This subroutine handles 
errors on DTFMT and DTFSD files. If an 
XDTF Is present and file status has been 
specified, then file status is set in the 
XDTF. If user error bytes are to be set, 
they are set and either an exit to a user 
error routine is made or, if file status 
has not been set, an error message is 
printed by fetching $$BCOBER. If 
$$BCOBER is fetched, an appropriate 
message is printed on SYSLOG and SYSLST 
by $$BC0BR1. If a dump is not required, 
return is made to ILBDSAEO; if it is, 
$$BPDUMP is called. $$PDUMP provides the 
dump and returns control to ILBDSAEO. If 
ILBDDBG2 (the STXIT routine) is in the 
load module, control is passed to it. If 
it is not, the job Is cancelled. 



Note 4 : This byte is only used by the 
ILBDSPAl entry point. Substitute binary 
digits as follows: 

For 0: 1 indicates ADVANCING PAGE 
For 1: END OF PAGE specified 
For 2: AFTER POSITIONING specified 
For 7: 1 indicates WITH CODE 

specified (REPORT WRITER) 



Linkage : None. Control is transferred to 
this subroutine through LIOCS. The address 
of the subroutine is in the DTF. 

Entry points are: 

ILBDSAEO (ADDR in ERROPT field of DTF) 
ILBDSAEl (ADDR in WRLERR field of DTF) 



Output : The user's record, with proper 
spacing,, is written on his output file. 
lOREG (4 a if variable blocked records) is 
forwarded to main line. 



Output : Register contains the error 
code and the address of dtf-8 when 
fetching $$BCOBER. 



SA Tape Pointer (ILBDIMLO) [FDl 



SA Variable- Length Record Output (ILBDVBLO) 
tFBl 



Operation : This subroutine writes 
variable-length blocked records. It calls 
ILBDMOVO to move records into a buffer* 



Linkage : 

L 
L 
L 
L 
BALR 

where : 



l.DTFPTR 

2, A (record) 

3 (Record length 

15, «V (entry point) 

14.15 



entry point 

is ILBDVBLO if the subroutine was 
called by ILBDSPAO, or ILBDVBLl, if 
the subroutine was called by the 
main- line program. 

Output : The record is written and the 
lOREG is advanced past the record length 
field. 



Operation : This subroutine gets the 
pointer to the physical tape drive 
associated with the logical unit for a 
particular tape file. 

Linkage : 

LA 0,DTFPTR cell 
L 15, =V (ILBDIMLO) 
BALR 1U,15 

Output : The current PUB pointer for this 
device is moved to DTF-8. 



SA Position Multiple File Tapes (ILBDMFTO) 

TfeT 



Operation : This subroutine positions an 
unlabeled or nonstandard labeled tape to 
the beginning of a desired file. Given a 
position integer greater than one« the 
subroutine rewinds and forward- spaces the 
tape, bypassing all files ahead of the 
desired one. 
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Linkage ; 

L 1,DTFPTR 

LA 2, Position integer 

L 15,=V(ILBDMFT0) 

BALR 14,15 

Output ; The tape is positioned. 
SA Test Tape File (ILBDMVEO) [FF] 



Operation ; This subroutine determines 
whether a inultivoluine unlabeled tape has 
reached EOF or EOV and acts accordingly. 
It sends a message reading, "C126D IS IT 
EOF?" to the operator. If the operator's 



answer is yes (Y or y) , the subroutine 
exits to the AT END address; if it is no (N 
or n) , the subroutine executes an FEOV 
instruction to switch to the next volume, 
executes a GET instruction to get the first 
record, and then returns. 

Linkage : 



L 


5«A(AT END routine) 


L 


1*A(DTF> 


BALR 


15,0 


LA 


3, 12(15) (See Note) 


L 


15,16(1) 


BAL 


14,8(15) 



For spanned records, a different linkage 
is required since register 3 is not 
available. 
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and the work area address is needed by the 
subroutine: 



CNOP 


2.4 


L 


5,A(AT END routine) 


BALR 


15,0 


ST 


5,20(15) 


ST 


0,2i»(15) 


LA 


5,20(15) (Register 5 points to the 




2 fullword constants below) 


L 


15,16(1) 


B 


8(5) 


DS 


F (Contains end-of-file address) 


DS 


F (Contains workarea address) 


BAL 


ia,8(15) 


Note: 


This is the same address as that in 


register 11. 


Output : 


The message, "01260 IS IT EOF" is 



sent to the operator. 



SA STXIT Macro Instruction (ILBDABXO) tFGl 



Operation : This subroutine is called 
during the code generated for OPEN verbs. 
It issues a STXIT AB macro instruction 
specifying that an address within the 
subroutine is to be given control by the 
system in the event of abnormal 
termination. The secondary entiry point is 
called if an error occurs on a unit record 
device, there is a standard error 
declarative for the device, and STXIT is 
requested on the CBL card. If the ILBDTC20 
subroutine is in the load module, control 
is passed to it. 



Linkage : 

L 
BALR 

Output ; 
issued. 



15, »V( ILBDABXO) 
1U,15 

The STXIT AB macro instruction is 



Note : The saved PUB pointer is at DTF-8 

Output ; the LUB and JIB pointers may be 
changed. 



INDEXED SEQUENTIAL ACCESS DATA MANAGEMENT 
SUBROUTINES 



The subroutines described below handle 
some of the I/O operations for the indexed 
sequential access method. 



ISAM READ and WRITE (ILBDISMO) [GA] 



Operation : This subroutine handles all 
indexed sequential READ and WRITE 
instructions. It checks for invalid key 
and input/output errors and branches 
accordingly to the appropriate procedure. 

Linkage : 

L 1,DTFPTR 

L 0« A (Record) BL for Sequential 

READ, REWRITE only 
L 15, =V (entry point) 
L 5,A(INVKEY or EOF) 
BALR 14,15 

For 'entry point,* substitute one of the 
following: 

ILBDISMO for LOAD or EXTEND (WRITE, 

Sequential) 
ILBDISMl for ADD (WRITE, Random) 
ILB0ISM2 for Random Retrieval (READ, 

Random) 
ILBDISM3 for Random Retrieval (READ, 

Sequential) 
ILBDISM4 for Random Update (REWRITE, 

Random) 
ILBDISM5 for Sequential Update (REWRITE, 

Sequential) 

Output : The record is read or written. 



SA Reposition Tape ($6BFCMUL) CFHl 



ISAM Error Routine (ILEDISEO) CGB] 



Operation : This subroutine resets the PUB 
pointer for a particular (SYSnnn) device to 
the same as that saved earlier (by 
subroutine ILBDIMLO). It rotates the 
LUB/JIB pointers until the current PUB 
pointer is identical to the saved one. 

Linkage : 

L 0,A(DTF) (See Note) 
LA 1,«CL8«$$BFCMUL' 
SVC 2 



Operation : This subroutine processes ISAM 
errors either by setting user error bytes 
(if any) and branching to a user error 
routine, or if there is no user error 
routine, by setting the error code and 
fetching $$BCOBER. If the exit is to the 
user routine, register 1 points to the 
error block. If $$BCOBER is fetched, an 
appropriate message is printed on SYSLOG 
and SYSLST by $$BC0BR1. Then, if a dump is 
not required, control returns to ILBDISEO; 
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if it iSf $$PDUMP is called* provides the 
dump and returns control to ILBDISEO. If 
ILBDDBG2 (the STXIT routine) is in the load 
module, control is transferred to it. If 
it is not, the job is cancelled. 

Linkage ; 

If this subroutine is called by 
ILBDISMO: 

L 2,ERRBLKPTR 

L l.DTFPTR 

L 15, =V( ILBDISEO) 

BR 15 

If this subroutine is called by the main 
line: 

L 1,DTFPTR 

L 15,=V(ILBDISE1) 

BR 15 



LH 5, =H* LENGTH* 

OR 'VLC* 
L 15,=V(ILBDSTR0) 
BALR 14,15 



(Length of 
identifier) 



Output : For START, the file is positioned 
to the specific key within the file. For 
START with KEY EQUAL TO, the file is 
positioned to the beginning of the generic 
group within the file. The generic key 
identifier is moved to the NOMINAL KEY 
data-name and padded with zeros if 
necessary. 



DIRECT-ACCESS DATA MANAGEMENT SUBROUTINES 



The subroutines described below handle 
some of the I/O operations for the direct 
access method. 



Output : User error bytes, if any, are set 
to reflect the error condition. Register 1 
points to the error block for data transfer 
on input file. The error code and address 
of DTF-8 (for PDUMP) are forwarded in 
register when fetching $$BCOBER. 



ISAM START (ILBDSTRO) IGC] 



Operation ; This subroutine, in response to 
START or START with the KEY EQUAL TO 
option, issues the $$BS£TL macro to 
initiate sequential retrieval. If the 
subroutine is called in response to the KEY 
EQUAL TO option, certain processing occurs 
prior to the issuance of the $$BSETL macro; 
after obtaining the address and length of 
the NOMINAL KEY data-name (KEYARG) from the 
DTF, this subroutine moves the generic key 
identifier to the NOMINAL KEY data-name and 
pads with zeros if the generic key 
identifier is shorter. 

Linkage : 

If the subroutine is called in response 
to START: 



L 0,DTPPTR 

L 15,=V(ILBDSTR1) 

BALR 14,15 



(Entry point in 
ILBDSTRO) 



If the subroutine is called in response 
to START with KEY EQUAL TO: 



L 

LA 



0,DTFPTR 

3, identifier 



(Address of 
identifier 
which contains 
key value 
requested) 



DA Close Unit (ILBCCRDO) [HA3 



Operation : This subroutine implements a 
CLOSE UNIT instruction on a DA file which 
is read sequentially when absolute track 
(physical) addressing is used. 



Linkag e : 



L 
L 
BALR 



1,DTFPTR 

15,=V(ILBDCRD0) 

14,15 



Output ; The current extent bucket in the 
Extent Store Area (described under "DA 
Extent Processor") and the SEEK address are 
updated to the first extent on the next 
volume for siabroutine ILBDDSRO. 



DA Close Unit for Relative Track (ILBDRCRO) 
Thb7 



Operation : This subroutine implements a 
CLOSE UNIT instruction for relative track 
addressing on a DA file which is read 
sequentially. 



Linkage : 

L 
L 
BALR 



1,DTFPTR 

15, =V( ILBDRCRO) 

14,15 



Output ; The current extent bucket (in the 
high-order byte of DTF- 16? followed by the 
3-byte address of the extent table in the 
DTF) and the SEEK address are updated to 
the first extent on the next volume for 
subroutine ILBDRDSO. 
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DA Extent Processor (ILBDXTNO) [HC] 



Output ! The record is read and the track 
address is updated for the next READ. 



Operation ; When absolute track addressing 
is used, this subroutine is called to store 
the extent limit information made available 
by an OPEN. A maximum of 7 extents can be 
stored. The Extent Store Area address is 
in DTF-16. 

Linkage ; None. The address of this 
subroutine is in the DTF. 

Output ; The extent limits are saved. The 
SEEK address is initialized for ILBDDSRO, 
and the first byte of the Extent Store Area 
is initialized to 0. 



Byte 0; Current extent bucket. It is 
set at CLOSE UNIT time by 
subroutine ILBDCRDO and used 
as an indicator by subroutine 
ILBDDSRO. 

Byte 1: Used by subroutine ILBDXTNO to 
indicate the SYS-number of the 
applicable unit. 

Bytes 2-8; The lower limit of the first 
extent, in the form MBBCCHH. 

Bytes 9-15; The upper limit of the first 
extent, in the form MBBCCHH. 

Bytes 16-n: The lower and upper limits of 
any remaining extents, in the 
same form as the first. 

Byte n + 1: X'FF*, to indicate the end of 
the extent store area. 



DA Sequential Read (ILBDDSRO) iHDl 



Operation i This subroutine reads a DA file 
sequentially when absolute track addressing 
is used. It generates a SEEK address from 
the extent information stored by subroutine 
ILBDXTNO and from the IDLOC returned by 
LIOCS. It utilizes subroutine ILBDIDAO to 
increase the SEEK address by one track. 

Linkage 



L 


1,DTFPTR 


L 


0,A(ACTKEY) (If actua 




specified) 


SR 


0,0 (If actual key not 




specified) 


L 


15, »V (ILBDDSRO) 


L 


5,A(E0F) 


BALR 


1*»,15 



DA Sequential READ for Relative Track 
(ILBDRDSO) [HE] " 



Operation : This subroutine reads a DA file 
with relative track addressing 
sequentially. The relative track address 
is initialized at OPEN time by the 
main- line code or, at CLOSE UNIT time, by 
subroutine ILBDRCRO. The address of the 
next record, which has been stored in the 
IDLOC field by the LIOCS module, is stored 
in the track address field. 



The Extent Store Area format is as follows: Linkage : 



L 
L 

SR 

L 
L 



1,DTFPTR 

0,A(ACTKEY) (If actual key 

specified) 
0,0 (If actual key not 

specified) 
15, «V( ILBDRDSO) 
5,A(E0F) 



BALR m,15 

Output : The record is read and the track 
address is updated for the next RE^. 



DA RZERO Record (ILBDFMTO) [HF] 



Operation ; When absolute track addressing 
is used, this subroutine writes Record 
onto each track of a DA output file. 

Linkage ; 

L 1,DTFPTR 

L 1 5, =V (ILBDFMTO) 

BALR 14,15 

Output : The RZERO record is written. 



DA RZERO for Relative Track (ILBDRFMO) [HG3 



Operation ; This subroutine writes Record 
onto each track of a DA output file with 
relative track addressing. 



Linkage : 

L 
L 
BALR 



1,DTFPTR 

1 5, «V (ILBDRFMO) 

14,15 



Output t The RZERO record is written. 
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DA Increase SEEK Address (ILBDIDAO) CHHl 



Operation ; This subroutine increases a 
SEEK address by one track when absolute 
addressing is used. 

Linkage ; 

L l.DTFPTR 

L 15, =V (ILBDIDAO) 

BALR 1U,15 

Output ; The SEEK address is increased. 



DA READ and WRITE (ILBDDIOO) [Hl3 



Operation ; When absolute track addressing 
is used, this subroutine reads or writes 
records on random access DTFDA files in 
response to READ or WRITE instructions 
using absolute addressing. It also checks 
for invalid key and input/output errors and 
branches, if necessary, to the appropriate 
procedure. 



Linkage ; 

LH 

L 

L 

L 

L 



3,RECSIZE 
1,DTFPTR 
0,A(ACTKEY) 
15,=V(entry point) 
5,A(INVKEY) 



BALR ia,15 

For 'entry point', substitute as 
follows: 

ILBDRDIO, for WRITE AFTER or WRITE KEY 
(American National Standard and 
DOS/VS COBOL WRITE/REWRITE) 

ILBDRDIl, for READ KEY and SAVE KEY 
READ (American National Standard and 
DOS/VS COBOL READ) 

ILBDRDI2, for READ KEY 

ILBDRDI3, for WRITE KEY 

ILBDRDIU, for WRITE AFTER 



Output : The record is read or written. 



DA Error Routine (ILBDDAEO) [HKl 



Linkage: 




LH 


3,RECSIZE (Undefined and spanned 




records only) 


AH 


3,=H''4* (Spanned records only) 


L 


0,A(ACTKEY) 


L 


15, =V (Entry point) 


L 


5,A(INVKEY) 


BALR 


14,15 



For 'entry point', substitute as 
follows: 

ILBDDIOO for WRITE AFTER or WRITE key 
(American National Standard and 
DOS/VS COBOL WRITE/REWRITE) 

ILBDDIOl for READ key and SAVE key 
READ (American National Standard and 
DOS/VS COBOL READ) 

ILBDDI02 for READ key 

ILBDDI03 for WRITE key 

ILBDDIOU for WRITE AFTER 

Output : The record is read or written. 



DA READ and WRITE for Relative Track 
(ILBDRDIO) [HJ] 



Operation ; This subroutine handles errors 
on DTFDA files either by setting user error 
bytes (if any) and branching to a user 
error routine* or if there is no user error 
routine, by setting the error code and 
fetching $$BCOBER. If $$BCOBER is fetched, 
an appropriate message is printed on SYSLOG 
and SYSLST. Then, if a dump is not 
required, control returns to ILBDDAEO; if 
it is, $$BPDUMP is called. $$BPDUMP 
provides the dump and returns control to 
ILBDDAEO. If ILBDDBG2 (the STXIT routine) 
is in the load module, control is passed to 
it. If it is not, the job is cancelled. 



Linkage ; 

L 
L 
BR 



2,A(DTF-2«») 
15, =V( ILBDDAEO) 
15 



Output ; Register 1 points to the data in 
the error block when exiting to user if 
there has been input data transferred. The 
user error bytes, if any, are set to 
reflect the error condition. 



Operation : This subroutine reads or writes 
records an random access DTFDA files in 
response to READ or WRITE instructions 
using relative track addressing. It also 
checks for invalid key and input/output 
errors and, if necessary, branches to the 
appropriate procedure. 



VSAM DATA MANAGEMENT SUBROUTINES 



The subroutines described below are the 
interface between the IBM DOS/VS COBOL 
object program and the VSAM system control 
subroutines. 
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VSAM Initialization (ILBDINTO) CHLl 



Operation ; This subroutine issues the 
GETVIS macro instruction to obtain virtual 
storage for the VSAM File Control Block 
(FCB) associated with each VSAM File 
Information Block (FIB). It initializes 
the FCB to zeros » sets some initial values, 
and stores the address of the FCB in the 
object program's TGT area. It also 
acquires work space for the VSAM 
subroutines. 



MVI 


SAV3+LASTDISP 


Indicate end of 




(R13),X*80 


list. 


LA 


R1»SAV3IR13) 




L 


R15,=V(ILBDVOC0> 




BALK 


R1U,15 




Note 1: 


see FOPENOPT field 


of the FCB in 



assignments for each option. 

Linkage — For CLOSE Request 

The following code is generated for each 
file to be closed: 



L inkage ; 

L 

BALR 
DC 
DC 



R15,V(ILBDINT0) 

Ria,R15 

XL2*DISPL IN TGT OF 1ST FIE CELL* 

XL2« NUMBER OF FIE's" 



Output ; Storage is acquired for the VSAM 
FCB and VSAM work space. 



L R1,FIE-CELL(R13) 
ST R1,SAV3+DISP(R13) 
MVC FCL0S0PT(U,R1), (See Note 1) 
=XLU • CLOSE-OPTIONS* 

The following code is generated last: 

MVI SAV3+LASTDISP(R13),X*80' 

LA K1,SAV3(R13) 

L R15,=V(ILBDV0C1) 

BALR RIU^RIS 



VSAM Open and Clo se Subroutine (ILBDVOCO) 
[HMl 



Operatio n; This subroutine handles all 
VSAM OPEN and CLOSE requests. 

For OPEN, the subroutine fills in FCB 
fields, obtains workspace for the file, 
constructs three control blocks for each 
file to be opened (ACB, EXLST, RPL) , and 
fills in fields in these control blocks. 
It sets up the STATUS KEY and RERUN 
integer and checks the CLOSE option for 
LOCK. If opened OUTPUT, it checks the 
high relative byte address for zero. It 
then branches to the appropriate VSAM 
system control subroutine. 

For CLOSE* the subroutine issues a 
FREEVIS for all space used for the file 
being closed and sets up the STATUS KEY as 
well as the CLOSE options in the FCB. It 
tests for RERUN and, if required; takes a 
checkpoint. It then branches to the 
appropriate VSAM system control subroutine. 



Linkage — For OPEN Request 

The following code is generated for each 
file to be opened: 

L Rl, FIB-CELL (R13) 
ST R1»SAV3+DISP(R13) 
MVC FOPENOPT(a,Rl), 

=XL4» OPEN-OPTIONS* (See Note 1) 
MVC FUSEERR(U,R1), If USE... ERROR 

USERRPN(R12) Declarative 

The following code is generated last: 



Note 1 ; see FCLOSCPT field of the FCB in 
"Section 3: Data Areas" for bit 
assignments for each option. 



VSAM Action Request Subroutine (ILBDVIOO) 



This subroutine handles all requests for 
START« READ, REWRITE* WRITE, and DELETE 
verbs with VSAM files. 

Each request is routed to the code 
handling the particular verb. This code 
passes the request to VSAM. Upon execution 
of the request, it checks the return code 
from VSAM for errors.. Depending on the 
return code and conditions set in the FCB, 
it returns control to the calling 
subroutine. 

For more specific meanings for each of 
the STATUS KEY entries, see IBM DOS/VS 
COBOL Programmer ' s Guide . 



Linkage : 

MOVE RECORD-AREA, 
FROM-AREA 



L RU, FIB-CELL (R13) 
L Ria,return-GN 
MVC FENDINV(U,RU) , 
ENDINVGN(R12) 



(If FROM option 
specified for 
WRITE and 
REWRITE) 



(If INVALID KEY, 
AT END, or AT 
ECP specified) 
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MVI PRECKEY(RU), 
RECORD-KEY- # 

LH RO,=H'' RECORD- 
LENGTH* 



or 
LH RO,RECORD-VLC(R13) 



LA 



RO- KEY- LENGTH 



(If KEY clause 
specified for 
READ and START) 

(If WRITE or 
REWRITE speci- 
fied for fixed 
length record) 

(If WRITE or 
REWRITE speci- 
fied for vari- 
able length rec- 
ord) 

(If START speci- 
fied with key) 



L R15,FC0BRTN(RU) 

BALR Rl R1.5 

DC XLl 'COMMAND-CODE' (See Note 1) 

DC XL3' OPTIONS' . (See Note 2) 

KOVE 

L R5, NEXT- sentence GN (if INTO option 

BR R5 for READ) 

Note 1 ; Command Codes- 

(4=READ, 8=WRITE»12=R£WRITE,16=START,20= 

DELETE) 

Note 2 ; Option bytes have the following 
bit information: 



Byte - Bit 

1 
2-5 
6 
7 



Meaning 

Invalid Key 

At End 

Unused 

Next 

Key (For READ or START) 



Byte 1 - Search condition for START 

Code Meaning 

X'SO" Greater 

x*UO' Equal 

X'20' Not less 

Byte 2 - X'80' called from ILBDSRTO 



Output : The requested input/output 
instruction is performed. 



ASCII SUPPORT SUBROUTINE 



The subroutine described below handles 
two of the functions necessary for handling 
files written in ASCII code. Other 
functions are handled by code in the COBOL 
program, or by subroutine ILBDSPAO. 



Se paratel y signed Numeric Subroutine 
(ILBDSSNO) IIA] 



Operation ; This subroutine is called 
whenever a data-name is involved in an 
arithmetic operation or in certain move 
operations and has a TRAILING SEPARATE 
CHARACTER or LEADING SEPARATE CHARACTER 
clause in the source program.. The 
subroutine checks the sign for validity. 
If the sign is not a valid sign, the 
subroutine issues a message and abnormally 
terminates the job. The subroutine has two 
entry points, ILBDSSNO and ILBDSSNl.. 

The subroutine is called at entry point 
ILBDSSNO, when an internal decimal number 
is to be produced. It places the proper 
sign in the low-order four bits of the 
receiving byte. 

The subroutine is called at entry point 
ILBDSSNl, when a separately signed external 
decimal number is to be produced. It 
places the proper EBCDIC sign in the 
receiving byte and replaces the converted 
sign in the high-order four bits with a 
X'F«„ 

Linkage ; 



LA 0,Sign 

LA 1, Receiving byte 

L 15, ay (ILBDSSNO) or 

BALR 14,15 



(ILBDSSNl) 



Output : The output of this routine is an 
internal decimal number, or a separately 
signed external decimal number. 
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DIAGNOSTIC AID SUBROUTINES 



Three options are available for 
object- time debugging. These are the 
statement number option (STATE), the flow 
trace option (FLOW), and the symbolic debug 
option (SYMDMF). The subroutines for the 
first two options provide debugging 
information at abnormal termination of a 
program; the subroutines for the third 
option provide debugging information either 
at abnormal termination or dynamically 
during the execution of a program. All of 
the subroutines are under the control of 
and are serviced by the Debug Control 
subroutine (ILBDDBGO). This chapter 
discusses (1) the Debug Control subroutine 
(ILBDDBGO), and (2) the subroutines that 
are called in response to each of the three 
debug options. 

Note: Diagram 6 in "Section 2: Program 
Organization" illustrates the calling 
dependencies among these routines. 



DEBUG CONTROL SUBROUTINE (ILBDDBGO) 

This subroutine is included by the 
linkage editor whenever the CBL control 
card for a program contains at least one of 
the debug options or the COUNT option. It 
is a single CSECT, consisting of eight 
routines and one common area. These are, 
with their entry points: 

• Test routine (ILBDDBGO) 

t Print routine (ILBDDBGl) 

• STXIT routine (ILBDDBG2) 

• TGT Address routine (ILBDDBG3) 

• Save Register 14 routine (ILBDDBGa) 

• Dynamic Dump routine (ILBDDBG5) 

• Range routine (ILBDDBG6) 

• Debug common area (ILBDDBG7) 

• close Debug File routine (ILBDDB68) 

The routines are described below. The 
debug common area is described in "Section 
3: Data Areas." 

TEST ROUTINE (ILBDDBGO) IJA3 : A call is 
generated to the TEST routine (ILBDDBGO) in 
INIT 3. This routine tests for the debug 
options that have been specified by 



checking bits 4, 5, and 6 of SWITCH in the 
TGT table, or for the COUNT option 
specified through bit 20. 

The subroutine calls FLOW (ILBDFLWO) fox 
the flow trace (FLOW) option, and loads and 
branches to SYMINIT (ILBDMPIO) for the 
symbolic dump (SYMDMP) option. These 
subroutines perform initialization 
processing for the respective options. The 
initialization process varies for each 
option and is discussed below. 

The TEST subroutine calls the execution 
statistics initialization subroutine 
(ILBDTCOO) to begin implementation of the 
COUNT option. 

The TEST routine issues the STXIT macro 
instruction specifying that the STXIT 
routine (ILBDDBG2) is to receive control 
when abnormal termination occurs. It also 
computes the load point for SYMDMP modules 
and issues the LOAD macro instruction to 
load ILBDMPIO. ILBDMPIO is then given 
control so that it can read in and, process 
the SYMDMP control cards. 

Diagrams 4 and 5 in "Section 2: Prograi 
Organization" show the flow of control for 
the Symbolic Dump (SYMDMP) subroutines. 
Diagram 6 shows control flow for the Debug 
Control Subroutine (ILBDDBGO) through five 
levels. 



Linkage : 

L 15, «V (ILBDDBGO) 
BALR 14,15 

If the COUNT option has been specified, th 
following is added: 



DC 



H • number-of -count-blocks ' 



Input : Register 13 contains the address o 
the TGT. 



PRINT ROUTINE (ILBDDBGl) [JB] : The PRINT 
routine is called by each of the 
subroutines associated with the debugging 
operations. Its function is to print 
either the debugging information requested 
or any error messages about the debug 
option subroutines themselves. 



Linkage : 

L 
BALR 



15, =V (ILBDDBGl) 
14,15 
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Input ; 



2. 



DBGICODE in the coicniunication area in 
ILBDDBGO module. This code indicates 
to ILBDDBGl how the output is to be 
printed. 

Buffer, containing information to be 
written on SYSLST. 



O utput ; 

1. Register 2 contains the address of the 
next buffer. 

2. A line of output on SYSLST. 

STXIT ROUTINE (ILBDDBG2) [JCl : This 
routine gets control from the system when 
an abnormal termination has occurred. This 
routine may also get control from a COBOL 
library I/O module when a termination type 
of error is recognized. It traces all 
COBOL programs in the run unit. 

For those programs compiled with the 
COUNT option* the STXIT routine calls 
subroutine ILBDTC20 to write execution 
statistics on SYSLST. For those that are 
compiled with SYMDMP, STATE, or FLOW 
options, the subroutine calls the 
corresponding subroutines to record the 
requested debugging information. 

Therefore, if the interrupted program 
was itself called by another program in the 
same load module, the STXIT routine also 
supervises debugging operations for the 
calling program if one of the debug options 
has been specified for that program. It 
uses data area FIRST-LAST, for this purpose 
(see "TGT Address routine (ILBDDBG3) )". 
The debugging operations are completed when 
the highest level calling program which has 
been compiled with a debug option (SYMDMP, 
STATE, or FLOW) has been given debug 
information. Diagram 6 shows the control 
flow for the STXIT routine through five 
levels. Diagram 11 in "Section 2; Program 
Organization" shows the doubleword 
data-area (FIRST-LAST) which is used to 
trace the COBOL programs at abnormal 
termination. 

Linkage ; 

This routine is given control directly from 
the System at abnormal termination. It 
returns to the System by issuing an EOF 
macro instruction. 

Input ; STXIT save area, containing the PSW 
and registers 0-15 at the time of abnormal 
termination. 

T GT ADDRESS ROUTINE (ILBDDBG3) [JC] ; The 
TGT Address routine (ILBDDEG3) is called by 
the COBOL program following the return of 



control to the COBOL program after a branch 
outside the current program. The TGT 
Address routine stores in a fullword 
(LAST) , the address of the current TGT upon 
return from a called program. This data 
area is used by the STXIT routine at 
abnormal termination to trace the calling 
programs of an interrupted program so that 
debugging information may be provided for 
each of them. Diagram 11 in "Section 2: 
Program Organization" shows the pointer 
connections between the FIRST-LAST data 
area and the TGT's of the programs that are 
link edited together. 

Linkage : 

L 15,=V(ILBDDBG3) 
BALR ia,15 

Input ; Register 13 contains the address of 
the current TGT. 

SAVE REGISTER lU ROUTINE (ILBDDBGU) [JC3 ; 
The Save Register lU routine (ILBDDBG4) is 
called by the COBOL program just before any 
instruction which passes control outside 
the COBOL program. It stores the address 
of this instruction. If an abnormal 
termination occurs and the PSW points 
outside the current COBOL program, it is 
this address and not the PSW address that 
is used to determine the nvimber of the 
source statement that caused the program 
error. 



Linkage : 

L 
BALR 



15,»V(ILBDDBG4) 
1U,15 



Input ; Register 14 contains the address of 
the instruction that transfers control 
outside the current program. 

DYNAMIC DUMP ROUTINE (ILBDDBG5) [JD3 t The 
function of this routine is to signal 
SYMDMP that a dynamic dump is to be given. 
Upon return from SYMDMP, register 10 
contains the address of the instruction 
that was overlaid with the BALR instruction 
that called ILBDDBG5. (See "Program 
Modification" under "Symbolic Dump (SYMDMP) 
Subroutine".) The overlaid instruction is 
then executed and control is returned to 
the COBOL program. 



Linkage ; 

L 
BALR 



15,=V(ILBDDBG5) 
1U,15 



Input : 

1. Register 3 contains the TGT address. 

2. Upon return from SYMDMP, register 10 
points to the instruction that was 
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overlayed with the BALR instruction 
that invoked ILBDDBG5. 

RANGE ROUTINE (ILBDDBG6) tJE] ; This routine 
is called from the GOBACK code. Its 
function is to indicate that a branch 
(GOBACK) to a program that is higher than 
the highest COBOL program compiled with 
SYMDMPt STATE, or FLOW has been taken. 
Such a program is outside the range of the 
Debug Control Subroutine. That is, an 
abnormal termination in such a program will 
be intercepted by the STXIT routine 
(ILBDDBG2). The STXIT routine's only 
function in this case is to issue the EOJ 
macro instruction. 

Linkage ; 

L 15,=V(ILBDDBG6) 
BALR lt|,15 

Input ; Register 13 contains the current 
TGT address. 

C LOSE DEBUG FILE ROUTINE (ILBDDBG8) [ JE3 ; 
This routine is called by ILEDTC20 to close 
the debug file when object-time execution 
statistics have been written, but there are 
no debugging options specified. 

Called by : ILBDTC20 

Linkage ; 

L 15,=V(ILBDDBG8) 
BALR 14,15 

Calls ; $$BCLOSE 

Input ; None 

Output ; DTF closed 



SUBROUTINES FOR THE DEBUG OPTIONS (STATE. 
FLOW, SYMDMP) 



The statement number (STATE) and flow trace 
(FLOW) options each require a separate 
subroutine. They are the Statement Number 
subroutine (ILBDSTNO) and the Flow Trace 
subroutine (ILBDFLWO). The symbolic dump 
option (SYMDMP) requires a subroutine made 
up of 13 modules or phases, whose entry 
point from the Debug Control subroutine is 
ILBDMPIO. 

The debugging information provided by 
the statement Number subroutine (ILBDSTNO) 
consists of the number of the COBOL 
statement and the number of the verb within 



the statement being executed when abnormal 
termination occurred. The debugging 
information provided by the Flow Trace 
subroutine (ILBDFLWO) consists of the 
source card numbers that represent the 
COBOL procedures executed before abnormal 
termination occurred. 

When a dynamic dump is requested, the 
Symbolic Dump subroutines provide a 
formatted symbolic dump of specified areas 
of the Data Division just prior to the 
execution of each of the specified COBOL 
statements. When SYMDMP is specified, the 
symbolic dump subroutines provide at 
abnormal termination a formatted symbolic 
dump consisting of the following parts: 

1. an abnormal termination message 
identifying the source statement 
causing the error, 

2. selected areas in the TGT, and 

3. all the data items from the Data 
Division. 



STATEMENT NUMBER SUBROUTINE (ILBDSTNO) [JF] 



Operation ; When the subroutine receives 
control from the STXIT routine (ILBDDBG2) 
at abnormal termination, it provides the 
number of the COBOL statement and the 
number of the verb within the statement 
that was being executed when abnormal 
termination occurred. If abnormal 
termination occurs during execution of an 
instruction outside of the COBOL program, 
the statement number that is provided is 
that of the last COBOL statement executed. 
The subroutine uses the information stored 
by the Save Register lU routine (ILBDDBG4) 
for this purpose. The subroutine calls the 
PRINT routine (ILBDDBGl) to write the 
debugging information on SYSLST. 

This subroutine is called from the STXIT 
routine (ILBDDBG2) using the following 
sequence : 

L 15, =V( ILBDSTNO) 
BALR 1<I,15 

Input ; Register 13 points to the 
communication area in the Debug Control 
Subroutine (ILBDDBGO) from which the 
address of the current TGT and other 
information can be obtained. 



Output ; 
SYSLST. 



Statement number message on 
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FLOW TRACE SUBROUTINE (ILBDFLWO) [JG] 



SYMBOLIC DUMP (SYMDMP) SUBROUTINE (JHl 



Operation ; This subroutine is entered at 
entry point ILBDFLWO by the TEST routine 
(ILBDDBGO) for initialization and at entry 
point ILBDFLW2 by the STXIT routine 
(ILBDDB62) at abnormal terir.ination. It is 
also called at entry point ILBDFLWl by 
compiled code upon encountering each COBOL 
PN. Calls are not generated for dummy PNs. 
When the subroutine is called for 
initialization at entry point ILBDFLWO, it 
obtains the address of the area allocated 
for the flow trace table. The number of 
traces specified by the user is a factor in 
determining the table size at compile time. 
This table is at a fixed displacement in 
the TGT of the COBOL program. After 
initialization each time that the 
subroutine receives control from the COBOL 
prograrit, it inserts the executing program's 
8 -character Program Identification as well 
as the card number of the current COBOL 
Procedure into the next available position 
in the table. The address of the next 
available position in the table is stored 
at location NXTAVL. Pointers for physical 
end (PEND) and logical beginning (LBEG), 
which indicates table wraparound » are also 
employed and are located just before the 
8 0-byte PROGRAM- ID area of the table. 



When the end of the table is reached, 
location NXTAVL points once again to the 
beginning of the table; and subsequent 
entries into the table overlay previous 
entries. The procedure is repeated until 
the end of the main COBOL program or until 
abnormal termination. If abnormal 
termination occurs, the subroutine receives 
control from the STXIT routine; and it 
calls the PRINT routine (ILBDDBGl) to print 
each entry of the table beginning with the 
earliest entry. 



Linkage ; 



From the TEST routine (ILBDDBGO); 



L 15, =V( ILBDFLWO) 
BALR m,15 

From compiled code: 

L 15, =V (ILBDFLWl) 
BALR lt|,15 

From the STXIT routine (ILBDDBG2) 

L 15,=V(ILBDFLW2) 
BALR m,15 



The symbolic dump subroutine, referred to 
mnemonically as SYMDMP, consists of 13 load 
modules or phases. Of these, two '(ILBDMPOl 
and ILBDMP02) service I/O requests for the 
remaining modules; five (ILBDMPIO through 
ILBDMP14) constitute what is here termed 
Pass 1; and six (IL6DMP20 through ILBDMP25) 
constitute Pass 2. The first digit in the 
load module name identifies the pass, the 
second digit the module within the pass. 

The 13 modules of SYMDMP are arranged in 
an overlay structure under the control of 
SYMDMP itself, with the modules of Pass 2 
overlaying those of Pass 1 after 
initialization is complete. (See Diagrams 
3 and 7 in "Section 2: Program 
Organization. " 

PASSl ; The function of Pass 1 is to scan 
control cards and translate them into 
tables for the use of Pass 2. Pass 1 is 
entered during INIT3 before execution of a 
program compiled with the SYMDMP option or, 
when several programs compiled with the 
SYMDMP option have been link edited 
together, before execution of the first 
program. Pass 1 is entered only once per 
run unit. 

PASS 2 ; The function of Pass 2 is to 
produce the output requested by the control 
cards. After Pass 2 has overlaid Pass 1, 
it is present during the entire run and may 
be entered many times. Pass 2 may be 
entered at the following times; 

• During INIT3 before execution of each 
program 

• Before each entry to any independent 
program segment 

• At abnormal termination 

• Each time a dynamic dump request is to 
be satisfied. 

COMMON DATA AREA ; The SYMDMP modules 
communicate with one another by means of a 
block of cells initialized by Pass 1 and 
kept intact (not overlaid) when control is 
turned over to Pass 2. Register 12 is 
reserved in all modules as the base 
register for this area. The first portion 
of the common data area contains four 
standard register save areas, and data 
needed by both passes. The data needed by 
both passes include: addresses of tables; 
addresses of buffers; cells used by the two 
I/O modules; information about storage 
'Allocation; etc. The second portion 
contains data used to communicate between 
the modules of either pass, but not between 
the passes. This includes: load addresses 
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for the modules of the pass; addresses of 
the table entries currently being 
processed; parameters for subroutines; etc. 



OBJECT-TIME TABLES i Three tables are built 
in Pass 1 to facilitate coniinunication among 
the modules of SYMDMP. These are: 

• The PCONTROL table, which contains one 
entry for each program in a run unit; 
it preserves information about the 
program's debug file, the 
program-control card options, the other 
tables, and critical locations in the 
COBOL program itself. 

• The DYNAMTAB table, which contains one 
entry for each dynamic dump request; it 
preserves card/verb number, virtual 
storage location and machine 
instruction corresponding to the 
request, and pointers which are used to 
locate on the debug file the data-names 
specified. 

• The DATADIR table, which is an index to 
the blocks of the debug file that are 
needed for dynamic dumping. 

For detailed descriptions of the PCONTROL, 
DYNAMTAB, and DATADIR tables, see "Section 
3: Data Areas." 

INPUT ; SYMDMP receives information from 
four sources external to itself: 

• The communication area of IL6DDBG0, 
containing, in particular, in LAST the 
address of the COBOL program's TGT. 

• The COBOL program's TGT and INITl 
cells, its instructions, and its Data 
Division. 

• The control cards on SYSIPT. 

• The debug file built by the COBOL 
compiler. 

Control cards : There are two types of 
control cards, program- control and 
line-control- 

Each program for which any SYMDMP 
service is requested must be identified by 
a prog ram- control card. PROGRAM-ID, debug 
file information, the ENTRY option, and the 
HEX option for abnormal termination dumps 
are specified on this card. Each dynamic 
dump request is identified by a 
line-control card. Card/verb number, the 
Data Division items to be dumped, and the 
ON and local HEX options are specified on 
this card. 

The SYMDMP control cards are described 
in detail in the publication IBM DOS/VS 



COBOL Compiler and Library Programmer's 
Guide . Order No. SC28-6a78. 

Debug File : When the SYMDMP option is 
specified on the CBL card. Phases 25 and 65 
of the compiler create a file for use by 
SYMDMP at object time. The file contains 
information about the items of the Data 
Division and about the location of the 
machine instructions corresponding to each 
Procedure Division source statement. 

The program-control card identifies the 
debug file for SYMDMP at object time by 
specifying device type (MT or SD), logical 
unit number, and, for a disk file, 
filename. These three items of information 
are saved in the PCONTROL table. Device 
type is used to determine which of the two 
I/O modules to invoke; logical unit number 
and file-name are stored in the DTF before 
the file is opened. Thus, the single DTF 
contained in each of the I/O modules can 
serve any number of files used one at a 
time. 

The format and contents of the debug 
file are described in "Data Areas" under 
"Program Organization". Diagrams 8, 9, and 
10 in "Section 2: Program Organization" 
show the relations between the debug file 
and the object- time tables. 

OUTPUT : SYMDMP generates the following 
types of information: 

• Output on SYSLST consisting of: a copy 
of all control cards; diagnostic 
messages; dynamic dumps; the abnormal 
termination statement number message; 
the complete abnormal termination dump 

• Modifications to the COBOL program in 
virtual storage if dynamic dumping is 
requested for the program 

Program modification : The mechanism by 
which SYMDMP intervenes in the COBOL 
program to produce a dynamic dump is as 
follows : 

Pass 1 searches the Procedure Division 
tables of the debug file for the specified 
card number. It stores, in the DYNAMTAB 
entry for the card, the address (relative 
to the beginning of the Procedure Division 
or of the transient area) of the 
corresponding instruction. 

Pass 2« when entered during INIT3, 
relocates this address to its true current 
value and saves the instruction itself in 
the DYNAMTAB entry. The first two bytes of 
the instruction in virtual storage are then 
replaced with BALR 0,12, that is, a branch 
to the PGT. Since, in a program compiled 
with the SYMDMP option, the first cells of 
the PGT contain a call to ILBDDEG5, the 
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effect is to invoke SYMDMP each time 
control flows through the irodified 
instruction. 

After it has issued the requested dumps* 
SYMDMP returns to ILBDDBGS the address of 
the DYNAMTAB cell which contains the saved 
original instruction. This instruction is 
executed in ILBDDBGS before control is 
returned to the following instruction in 
the program. (Note that when abnormal 
termination occurs, SYMDMP restores the 
original instruction to the program so 
that, if the user obtains a system dump, 
the dump will reflect the COBOL program as 
it was compiled. ) 



LINKAGE TO SYMDMP ; 

L 15,=A(ILBDMP10) (See Note A.) 
BALR 14,15 

DC H*n' (see Note B.) 

Note A ; the address is computed by 
ILBDDBGO before the first call to SYMDMP. 

Note B : 

*n' = in a call for initialization 
from ILBDDBGO 
= U in a call for dynamic dumps 

from ILBDDBGS 
= 8 in a call for abnormal 

termination dumps from ILBDDBG2 



Processing (Sequence of Events) 



The sequence of events when SYMDMP 
services are requested for a run unit is, 
in general, as follows: 

• Initialization for the first COBOL 
program in a run unit 

• Initialization for all other COBOL 
programs in a run Unit 

• Initialization for independent program 
segments 

• Processing for dynamic dump requests 

• Processing for abnormal termination 
dumps 

The load names, mnemonic names, and 
functions of the individual SYDMP modules 
are as follows: 

1. I/O modules: 

ILBDMPOl (lODISK) - I/O operations 

for a debug file 
on disk. 



ILBDMP02 (lOTAPE) - 

2. Pass 1 modules: 
ILBDMPIO (SYMINIT) - 

ILBDMPll (SCANP) - 

ILBDMP12 (SCAND) - 

ILBDMP13 (FINDNAMS) - 

ILBDMPIU (FINDLOCS) - 

3. Pass 2 modules: 



I/O operations 
for a debug file 
on tape. 



initialization 
and Pass 1 
control. 

program-control 
card scan. 

line-control 
card scan. 

resolution of 
identifiers. 

resolution of 

card/verb 

numbers. 



ILBDMP20 (SYMCNTRL) - Pass 2 control. 



ILBDMP21 (SEGINIT) - 



program and 

segment 

initialization. 



ILBDMP22 (DMPCNTRL) - control for the 

two dump 
modules. 



ILBDMP23 (DUMPl) - 



ILBDMP2U (DUMP2) - 



ILBDMP25 (SYMSTATE) - 



group and 
elementary item 
dump. 

FD, SD, RD, VSAM 
FD, and TGT dump 

abnormal termi- 
nation statement 
number 
processing. 



The overlay structure and the hierarchy 
of loading responsibility are detailed in 
Diagrams 3 and 7 in "Section 2: Program 
Organization." The flow of control among 
the modules of Pass 1 and Pass 2 is shown 
in Diagrams U and 5, respectively. The 
operation of the individual modules is 
summarized in "Processing (Routines)" in 
this' chapter. 



INITIALIZATION » FIRST COBOL PROGRAM ; 
During INIT3 of the first program 
encountered with the SYMDMP option, 
ILBDDBGO loads and calls ILBDMPIO 
(SYMINIT). 

1. SYMINIT initializes the coirmon data 
area and reads the first 
program-control card. 
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2. SYMINIT loads and calls SCANP. 

3- SCANP builds the PCONTROL table, reads 
the next card, and returns to SYMINIT, 

t». If the card starts with a number 

(line-control card), SYMINIT loads and 
calls SCAND; otherwise, SYMINIT skips 
to step 11 below. 

5. SCAND builds the DYNAMTAE table; 
collects data-names in the QUALNAMS 
area for the batch search of the debug 
file; reads the next card and, if it 
starts with a number, repeats the 
process. 

6. SCAND loads and calls FINDNAMS, 
overlaying itself. 

7- FINDNAMS searches the debug file for 
names collected in the QUALNAMS are 
and fills in identifier information in 
the DYNAMTAB table; FINDNAMS then 
loads and returns to SCAND, overlaying 
itself. 

8, SCAND enters DYNAMTAB and DATADIR 
pointers in the PCONTFOL table, and 
returns to SYMINIT. 

9- SYMINIT loads and calls FINDLOCS- 

10« FINDLOCS searches the debug file for 
addresses corresponding to card/verb 
numbers and enters these in the 
DYNAMTAB table, FINDLOCS then returns 
to SYMINIT. 

11- If end-of-file has not bee reached on 
SYSIPT, SYMINIT returns to step 2 
above. 

12. At end-of-file, SYMINIT calculates the 
total size of SYMDMP for the rest of 
the run unit and stores this value in 
the ILBDDBGO cell SYMSIZE for use by 
the SORT subroutine; SYMINIT also 
stores information in the common data 
area for use by the Pass 2 space 
allocation routines. 

13- SYMINIT loads ILBDMP20 overlaying 
itself and transfers to Pass 2; 
ILBDMP20 continues normal 
initialization processing. (See 
Initialization - All Other COBOL 
Programs.") 

I NITIA LI ZATION - ALL OTHER COBOL PROGRAM S ; 
During INIT3 of all COBOL programs after"" 
the first, , ILBDDBGO calls SYMDMP at its 
original address, which is now occupied by 
ILBDMP20 (SYMCNTRL). 

1. SYMCNTRL analyzes the calling 

parameter and determines that it has 
been called for initialization- 



2. SYMCNTRL loads and calls SEGINIT. 



3- SEGINIT, by analyzing PROGRAM-ID, 
determines that a fresh program is 
being entered. 

U. SEGINIT Stores ACURPC (pointer to the 
current PCONTROL entry) and frequently 
referenced addresses in COBOL program; 
SEGINIT also saves the root segment 
priority of zero. 

5. If this is the first time that SEGINIT 
has been entered (that is, SEGINIT has 
been entered from SYMINIT) , and the 
DYNAMTAB table exists for any program 
in the entire run unit, SEGINIT 
computes the load addresses for 
DUMP1/DUMP2, lODISK/IOTAPE, and the 
debug file buffers. 

6. If there is no DYNAMTAB table for the 
current program, SEGINIT skips to step 
8 below.. 

7. SEGINIT loads and calls lODISK or 
lOTAPE to open the debug file; 
relocates addresses in the PCONTROL 
and DYNAMTAB tables; saves the 
original instructions and modifies 
them in virtual storage to effect 
calls to SYMDMP for dynamic dumping. 

8. SEGINIT returns to SYMCNTRL. 

9. SYMCNTRL returns to ILBDDBGO. 



INITIALIZATION - INDEPENDENT PROGRAM 
SEGMENT : Before entry to an independent 
program segment, ILBDDBGO calls SYMDMP at 
ILBDMP20 (SYMCNTRL). 

1. SYMCNTRL analyzes the calling 
parameter and determines that it has 
been called for initialization. 

2, SYMCNTRL loads and calls SEGINIT. 

3- SEGINIT, by analyzing the PROGRAM- ID, 
determines that the program is the 
same program as at the previous entry. 

U. SEGINIT compares the priority in the 
TGT with the saved priority; if they 
are equal, SEGINIT skips to step 7 
below. 

5- SEGINIT saves the new priority; then, 
if there is no DYNAMTAB table for the 
program, SEGINIT skips to step 7 
below. 

6. SEGINIT saves and modifies 
instructions in the current 
independent segment to effect calls to 
SYMDMP for dynamic dumps. 



Diagnostic Aid Subroutines 51 



Licensed Material - Property of IBM 



7- SEGINIT returns to SYKCNTRL. 

8. SYMCNTRL returns to ILBDDBGO. 

DYNAMIC DUMP REQUEST ; ILBDDBG5, called 
through the program modifications made by 
SYMDMP (see step 7 under "Initialization - 
All Other COBOL Programs," step 6 under 
"Initialization - Independent Program 
Segment" and "Program Modification" under 
"Output" above) ^ calls SYMDMP at ILBDMP20 
(SYMCNTRL). 

1- SYMCNTRL analyzes the calling 

parameter and determines that it has 
been called for dynamic dumps. 

2. SYMCNTRL loads and calls DMPCNTRL. 

3. DMPCNTRL searches the DYNAMTAB table 
for all entries with current priority 
and address fields which match the 
value of register in the COBOL 
program; stores the instruction 
address for ILBDDBGO; updates and 
analyzes ON counters (if any) for the 
entries to determine if a dump is 
required at this execution of the 
COBOL statement specified on the 
line-control card. If no dump is 
required, DMPCNTRL skips to step 9 
below; otherwise, DMPCNTRL gets the 
first (or only) active DYNAMTAB entry 
for the current request. 

H. DMPCNTRL determines from the DYNAMTAB 
entry the limits of the dump 
requested; and gets the dump's 
starting item from the DATATAB table 
on the debug file. 

5. DMPCNTRL loads and calls DUMPl if the 
item is a group or elementary item; 
otherwise, DMPCNTRL loads and calls 

DUMP 2. 

6. DUMPl analyzes the item's attributes 
which are contained in the DATATAB 
entry and issues a fonratted dump of 
its contents in virtual storage; gets 
the next DATATAB entry. If it is 
beyond the limits of the requested 
dump, DUMPl returns to DMPCNTRL; if 
itis a group or elementary item, DUMPl 
repeats the process described above; 
if it is other than a group or 
elementary item, DUMPl requests 
DMPCNTRL to load and transfer control 
to DUMP2 to process the item. 

Similarly, DUMP2 dumps information 
about FD, RD, SD, or index items; and 
gets the next DATATAB entry. If it is 
beyond the limits of the requested 
dump, DUMP2 returns to DMPCNTRL; if it 
is a group or elementary item, DUMP: 
requests DMPCNTRL to load and transfer 
control to DUMPl. 



7. When DUMPl or DUMP2 returns after 
satisfying a dump request, DMPCNTRL 
examines the current DYNAMTAB entry; 
if it specifies further identifiers 
for the same card/verb number, 
DMPCNTRL returns to step U above. 

8- DMPCNTRL continues the search of the 
DYNAMTAB table for further entries of 
equal address and priority; when it 
finds any such entries, it returns to 
step U above. 

9. DMPCNTRL returns to SYMCNTRL. 

10. SYMCNTRL returns to ILBDDBG5. 

ABNORMAL TERMINATION ; ILBDDBG2 calls 
SYMDMP at entry point ILBDMP20 (SYMCNTRL) 
to produce abnormal termination dumps for 
the abnormally terminating program, and, on 
subsequent calls, for all other SYMDMP- 
coropiled programs encountered in its 
backward chain to the main COBOL program. 

1- SYMCNTRL analyzes the calling 

parameter and determines that it has 
been called for abnormal termination 
dumps . 

2. The BOMB switch is turned on. 

3. SYMCNTRL loads and calls SEGINIT. 

t»- SEGINIT, finding BOMB on, performs 
special abnormal termination 
processing; examines all DYNAMTAB 
entries in the run unit and restores 
the modified instructions to their 
original state; if the run \anit 
included no dynamic dumping requests, 
searches all PCONTROL entries for a 
record of Procedure Divisions large 
enough to be overlaid by as yet unused 
SYMDMP modules (DUMP1/DUMP2, 
lODISK/IOTAPE, and debug file 
buffers) ; may also use SORT and 
DISPLAY subroutines if present; as a 
last resort may use space remaining 
between end of tables and end of 
partition. 

5. SEGINIT loads and calls lODISK or 
lOTAPE to open (or "rewind") the debug 
file; and relocates addresses in the 
PCONTROL table if the entry has never 
been used. 

6. SEGINIT returns to SYMCNTRL. 

7. SYMCNTRL loads and calls SYMSTATE. 

8- If the STATEOUT switch is on, SYMSTATE 
skips to step 9 below, since the 
statement number message is only 
produced for an abnormally terminating 
program; otherwise, SYMSTATE turns on 
STATEOUT; gets the address in 
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ILBDDBGO*s STXIT program status word 
(PSW), or, if this is not within the 
program's limits, gets the contents of 
register 14« which were saved by 
ILBDDBG4; uses this address to search 
Procedure Division tables of the debug 
file; identifies the most closely 
matching card/verb number and issues 
the statement number message. 

9- SYMSTATE returns to SYKCNTRL. 

10. SYMCNTRL loads and calls DMPCNTRL. 

11. DMPCNTRL, finding BOMB on, sets the 
dump limit at the last entry in the 
DATATAB table; turns ALLSW on; and 
gets the first entry in the DATATAB 
table. 



Note; 



'nn 



•as 00 to open 
OU to read 

08 to point before reading 
12 to close 



Output ! Address of current debug file 
buffer is returned in register 3 and in 
ADB6BUF. If note was requested, block 
identification is returned in NOTEADR. 

Calling Information ; Called by the SCAND, 
FINDLOCS, and FINDNAMS subroutines in Pass 
1, and by the SEGINIT, DMPCNTRL, and 
SYMSTATE subroutines in Pass 2. It 
overlays lOTAPE. 



12. DMPCNTRL loads and calls DUMP2. 



lOTAPE (ILBDMP02) CJI] 



13. DUMP2 dumps the TGT and returns to 
DMPCNTRL. 

14. DMPCNTRL loads and calls either DUMPl 
or DUMP 2 depending on the attributes 
of the initial DATATAB item (see step 
5 under "Dynamic Dump Request"). 

15. DUMPl and DUMP2 jointly dump the 
virtual storage contents of all 
DATATAB items (see step 6 under 
"Dynamic Dump Request"). 

16. DUMPl returns to DMPCNTRL after 
dumping the final Data Divisiion entry 
in the DATATAB table. 

17. Since ALLSW is on» indicating that the 
entire Data Division has been dumped, 
there can be no further dump request 
to fill and DMCNTRL returns to 
SYMCNTRL. 

18- SYMCNTRL returns to ILBDDBG2. 



Processing (Routines) 



lODISK (ILBDMPOl) [JI3 



Operation ; Contains DTFSD, SDMOD, and 
routines to open, close, read, read and 
note,, point and read, for a debug file on 
disk. 

Linkage; 



Operation ; Identical with lODISK 
(ILBDMPOl) except that it contains DTFMT 
and MTMOD for a debug file on tape. 

Linkage ; Identical with lODISK (ILBDMPOl) 
except that the loadname is 'ILBDMP02*. 

Output ; See lODISK (ILBDMPOl). 

Calling Information ; See lODISK 
(ILBDMPOl). 



SYMINIT (ILBDMPIO) [JJ-JKl 



O peration ; Controls Pass 1 operations; 
contains 3 common subroutines (CALLFIND, 
ERROR, and READIPT) for Pass 1 modules. 



' Linkage ; 

L 

BALR 

DC 



15, «A( ILBDMPIO) 

14,15 

H*00' 



Output ; Table addresses and virtual 
storage limits are passed in common data 
area to Pass 2. SYMSIZE cell is set in 
ILBDDBGO for use by the SORT subroutine. 

Calling Information ; Called by ILBDDBGO 
during INIT3 of the first program compiled 
with the SYMDMP option. It is overlaid by 
SYMCNTRL (ILBDMP20) after completion of 
Pass 1. 



L 15,AI0M0D 

LA !,=• ILBDMPOl* 

LOAD (1),(15) 

BALR 14,15 



DC 



H*nn» (See note.) 



CALLFIND (COMMON PASS 1 SUBROUTINE 
CONTAINED IN SYMINIT) 

Operation ; Effects linkage between SCAND 
and FINDNAMS. 
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Linkage ; 

L IS.ACALLFND 
BALR 14,15 

Output ; None. 

Calling Information ; Called by SCAND when 
the DYNAMTAB table is complete. 

ERROR (COMMON PASS 1 SUBROUTINE CONTAINED 
IN SYMINIT) 

Operation ; Issues Pass 1 error messages. 

Linkage ; 

MVI ERR, message-number 
L 15,AERR0R 
BALR 14,15 

Output ; Error message on SYSLST. 

Calling Information ; Called by SYMINIT, 
SCANP, SCAND, FINDNAMS, and FINDLOCS. 

READIPT (COMMON PASS 1 SUBROUTINE CONTAINED 
IN SYMINIT) 

Operation ; Reads and calls ILBDDBGl to 
list control card on SYSIPT; scans card. 



Linkage ; 

L 
BALR 

Output ; 



15,AREADIPT 
14,15 



Current input card in INBUP; 

AELM, address of start of element; 

COL, card column of start of next 

element; 

LEN, length of element; 

EOCSW, on if no more elements on card; 

EOFSW, on if end-of-file found; 

NUMSW, on if element is number; 

PARENSW, on if element starts with 

left parenthesis. 

calling Information ; Called by SYMINIT, 
SCANP, and SCAND. 



SCANP (ILBDMPll) [JL] 



Operation ; Calls the READIPT subroutine of 
SYMINIT to scan program-control card; 
builds the PCONTROL table entry. 



Linkage ; 



Output ; PCONTROL entry and its pointer 
ACURPC, NXTBYTE, free area pointer, updated 
to byte following this entry. 

Calling Information ; Called by SYMINIT 
when program- control card has been found. 
Overlays QUAINAMS area used by SCAND and 

FINDNAMS. 



SCAND ( I LBDMPl 2 ) [ JM 3 



Operation ; Calls the READIPT subroutine of 
SYMINIT to scan line-control card; reads 
the next card and scans until it comes to a 
card which does not start with a 
card-number. Builds a DYNAMTAB entry for 
each line-control card. Collects 
data-names specified in QUALNAMS area. 
Reads in the first block of the debug file. 

Linkage ; 

L 0,ASCAND 

L 1,=«ILBDMP12» 

LOAD (1),(0) 

BALR 14,1 

Output ; DYNAMTAB table with fields to be 
completed by FINDNAMS and FINDLOCS. 
QUALNAMS area containing all names 
requested on line- control cards. Pointers 
to the DYNAMTAB and DATADIR tables in the 
PCONTROL table. NXTBYTE cell updated to 
byte following last DYNAMTAB entry. 

Calling Information ; Called by SYMINIT 
when card starting with a number is found 
by SCANP. Overlays FINDNAMS and FINDLOCS. 



FINDNAMS (ILBDMP13) [JN3 



Operation ; Searches the DATATAB table on 
the debug file for identifiers collected in 
the QUALNAMS area. Builds the DATADIR 
table containing block identification for 
each distinct DATATAB block required. 
Enters the table locators for identifiers 
in the DYNAMTAB table. 



Linkage ; 

L 
L 

LOAD 
BALR 



0,ASCAND 
1,="ILBDMP13* 
(1),(0) 
14,1 



L 


0,ASCANP 


L 


!,=• ILBDMPll* 


LOAD 


(1),(0) 


BALR 


14,1 



Output ; Locators in the DYNAMTAB table, 
which permit Pass 2 to point directly, 
without search, to the requested data-naires 
in the debug file. NXTBYTE cell updated to 
byte following last DATADIR entry. 
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Calling Information ; Called by SCAND via 
CALLFIND subroutine in SYMINIT when last 
line-control card for prograir has been 
scanned. Overlays SCANO and FINDLOCS. 



Note ; Caller places address in ADTODUMP 
and length in LENTODMP; places desired 
starting column for address in ADCOL and 
desired starting column for contents in 
CORECOL. If address is to be printed, 
caller turns on PRINTLOC switch. 



FINDLOCS (ILBDMPIU) [JOl 



Operation ; Searches the PRCCTAB table on 
the debug file for the card/verb numbers 
specified on line-control cards. Enters 
corresponding relative addresses in the 
DYNAMTAB table. 



Linkage ; 

L 
L 

LOAD 
BALR 



0, SCAND 

l, = 'ILBDMPm' 

(1),(0) 

m,i 



Output ; Priority and relative address 
fields in the DYNAMTAB table. 

Calling Information : Called by SYMINIT 
when SCAIlD returns to it with DTABOK switch 
on. Overlays SCAND and FINDNAMS. 



SYMCNTRL (ILBDMP20) [JP-JQ3 



Operation ; Controls Pass 2 processing. 
Contains 1 common subroutine (HEXDUMP) for 
Pass 2 modules. 

Linkage ; 

L 15«-A(ILBDMP10) 

BALR 10,15 

DC H«n» (See note.) 



Output ; Hexadecimal dump on SYSLST. 

Calling Information ; Called by DUMPl and 
DUMP2. 



SEGINIT (ILBDMP21) [JR3 



Operation ; Opens the debug file; reads the 
OBODOTAB table into virtual storage; 
relocates table addresses; initializes 
virtual storage for dyneunlc duirping; 
performs space allocation at abnormal 
termination. 

Linkage ; 

L 2,AS£GINIT 

LA 1,=»ILBDMP21» 

LOAD (1),(2) 

BALR 14,2 

Output ; Program modifications for dynamic 
dump calls. The pointer contained in 
ACURPC is updated to the current PCONTROL 
entry. LASTSEG is updated to contain the 
current priority. 

Calling Information ; Called by SYMCNTRL 
for initialization and in the event of an 
abnormal termination. Overlays DMPCNTRL 
and SYSMSTATE. 



Note ; 'n* = for initialization 
U for dynamic dump 
8 for abnormal termination 

Output ; BOMB switch is turned on in the 
event of an abnormal termination. This 
switch is checked by SEGINIT and DMPCNTRL. 

Calling Information ; Called by ILBDDBGO, 
ILBDDBG5, and ILBDDBG2. Overlays SYMINIT. 

HEXDUMP (COMMON PASS 2 SUBROUTINE CONTAINED 
I N SYMCNTRLK ' 

Operation ; Calls ILBDDBGl to print 
hexadecimal dtirops. 

Linkage ; 

L 15«AHEXDUMP 
BALR 1U.15 



DMPCNTRL (ILBDMP2 2 HJS-JTl 



Operation ; Controls dumping, identifies 
current dynamic request in the DYNAMTAB 
table, and provides service and control for 
DUMPl and DUMP2. Contains 2 subroutines 
(CALLDiD2 and NXTENTRY) common to DUMPl and 
DUMP2. 



Linkage ; 

L 

LA 

LOAD 



2,ASEGINIT 

1,«»ILBDMP22« 

(1),(2) 



BALR 1<I,2 

Output ; Heading line on SYSLST, before a 
dynamic dump, to identify card/verb niirober 
of request. Cells and switches filled in 
by NXTENTRY subroutine. 
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Calling Information ; Called by SYMCNTRL at 
each dynamic request and after SYMSIATE at 
abnormal termination. Overlays SEGINIT and 
SYMSTATE. 



CALLD1D2 (COKMON PASS 2 SUBROUTINE 
CONTAINED IN DMPCNTRL) 

Operation ; Serves as linkage between DUMPl 
and DUMP2. Loads whichever of the two is 
not in virtual storage when it is entered 
and passes control to it. 



Linkage ; 

L 
BR 



15,ACALLD 
15 



For elementary items: name, level, 
card number, location in virtual 
storage, type code (for example, B 
for "binary," P for "packed 
decimal," etc.). Contents of 
alphabetic and alphanumeric fields 
in normal print characters. 
Contents of numeric fields in scaled 
decimal form. 

Every occurrence of each subscripted 
elementary item is dumped, preceded on the 
line by its subscripts. Every collection 
of subscripted elementary items belonging 
to a variable- length group is preceded by 
the name(s) and current value of the 
applicable object (s) of the 
OCCURS. .. DEPENDING ON clause. 



Output ; None. 

Calling Information ; Called by DUMPl and 

DUMP2. 



Calling Information ; Called by DMPCNTRL 
and DUMP2. Overlays DUMP2. 



NXTENTRY (COMMON PASS 2 SUBROUTINE 
CONTAINED IN DMPCNTRL) 

Operation ; Gets and analyzes the next 
DATATAB entry on the debug file. 



Linkage : 

L 
BALR 



15,ANXTNTRY 
1U.15 



Output ; Address of the current DATATAB 
entry is returned in register 3 and 
ADATNAME; address of its attributes field 
is returned in ADATTR; LEV, MAJ, MIN, and 
other fields are also set. 

Calling Information : Called by DMPCNTRL to 
get the first item of a dump, called by 
DUMPl and DUMP2 to get subsequent items. 



DUMP2 (ILBDMP2»t)[JV] 



Operation : Formats the contents of FD*s, 
SD*s, RD*s, index-names, and fields of the 
TGT. Calls ILBDDBGl to print dvunps. 



Linkage ; 



L 15,ADUMP1 

LA 1,='ILBDMP2U« 

LOAD (1),(15) 

BALR 1<I,15 



Output ; 
SYSLST; 



The following is written on 



TGT fields in hexadecimal format. 

For an SD: name, type, and 
card- number. 



DUMPl (ILBDMP23) [JUl 



Operation : Formats the contents of group 
and elementary items; calls ILBDDBGl to 
print dumps. 



Linkage ; 

L 
LA 

LOAD 
BALR 

Output ; 
SYSLST: 



15,ADUMP1 

1,=»ILBDMP2« 

(1),(15) 

ia,i5 

The following is written on 



For group items: name* level, and 
card-number. Hexadecimal dump as 
required. 



For an index-name: name, type, and 
contents converted to decimal. 

For an RD; name, type, card-number, 
and contents of PAGE-COUNTER and 
LINE-COUNTER, if present (Note: 
Report line is printed by DUMPl.) 

For an FD: name, type, card-number, 
and DTF information including 
contents of DTF in hexadecimal 
format. 

For a VSAM FD: whether the file is 
open or closed, file organization, 
access method, the file status key, 
and th^ last I/O statement. 

Calling Information : Called by DMPCNTRL 
and DUMP 2. Overlays DUMP 2. 
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SYMSTATE (ILBDMP25) [JW3 



Operation ; Calls ILBDDBGl to issue 
statement number message in the event of 
abnormal termination. Calls the FLOW 
subroutine (ILBDFLWO), if FLOW is 
specified, before the first Data Division 
dump is issued. 



Linkage ; 

L 
LA 

LOAD 
BALR 



Output ; 
SYSLST. 



2»ASEGINIT 
1,=*ILBDMP25» 
(1)^(2) 
14,2 



Statement number message on 
STATEOUT switch is set on. 



Calling information ; Called by SYMCNTRL 
after SEGINIT in the event of abnormal 
termination. Overlays SEGINIT and 
DMPCNTRL. 



SRCHPUBS (ILBDMPOU) [JXl 



Operation ; Searches the PUB table for the 
device type and then completes the SYS005 
DTF by entering the device type, track 
capacity, and upper head limit. 



Linkage ; 



L 

LA 

LOAD 

LA 

BALR 



RO,ADBGBUF 

R1,*ILBDMP0U' 

(1)^(0) 

RO,ERREXIT 

R10,R1 



Output t Three bytes beginning at DTF + 
X*1D' are filled in; the first byte 
contains the device type and the next two 



bytes contain the device-type track 
capacity. DTF + X*27* contains the maximum 
head limit for a cylinder of that device. 

Calling Information ; Called by lODISK for 
each request to open SYS005. 



USE-FOR-DEBUGGING Subroutin e (ILBDBOGO) 

[JYI 



Operation ; ILBDBUGO is called to handle 
invocations of USE-FOR-DEBUGGING 
declaratives, including the setting up of 
the debug item. 

Linkages 

L 15, V (ILBDBUGO) 
BALR 14,15 

Branch bypass — GN (4,6, or 8 bytes) 

DC X'FF' 

DC XL2'card number of this verb' 

(following fields repeated for each 
declarative invocation) 
DC X'description of DEBUG object' 
DC XL3'displ. of DBG-NM literal' 
DC XL2' length of DBG-NM literal' 
DC XL3'displ. of USDBG PN cell' 

(optional fields) 

DC XL3'displ. of base for DBG-CONTT' 

DC XL2'displ. from the base' 

DC XL2' length of DBG-CONTENT data' 

Output ; The debug item is allocated and 
filled in as specified by the declarative, 



Calling Information ; This subroutine is 
called by the compiled code. Calls 
ILBDCMMO (for GETCORE operations) . 
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OBJECT'TIME EXECUTION STATISTICS 
SUBRODTINES 



Programmers can specify three options in 
the PARK field of the EXEC statement to 
generate statistics for helping them make 
their programs more efficient. The 
VERBSUM and VERBREF options are 
implemented by the compiler, producing 
statistics on the design of the 
programs. The COUNT option is 
implemented by the compiler and 
object-time execution statistics 
subroutines, producing statistics on the 
frequency with which sections of the 
programs are executed. 

RELATIONSHIP TO THE DEBUG CONTROL 
SUBROUTINE 



The object-time execution statistics 
subroutines are controlled and supported by 
the debug control subroutine, ILBDDBGO (see 
"Diagnostic Aid Subroutines"). 

The debug initialization subroutine is 
called by INIT3 in the object module 
whenever the COUNT option has been 
specified, regardless of whether any 
debugging options have also been 
specified. The debug initialization 
subroutine calls COUNT subroutines to 
perform COUNT initialization. The debug 
control subroutines also provide the 
following functions for the object time 
execution statistics subroutines: 

• Call COUNT subroutines at abnormal 
termination of object module execution 
(ILBDDBG2) 

• Write on the debug print file 

(SYSDBOUT) if count errors are 
found (ILBDDBGl) 



COUNT DATA AREAS 



The object-time execution statistics 
subroutines use a number of tables: 

• The count table, built by the 
compiler as part of the object 
module. The table contains each 
procedure-name and verb as it is 
encountered in the source program, 
each verb being in Pl-code form. 



• The verb translate table, verb 
table, and verb text table — 
parts of subroutine ILBDTC30 — 
which enable the subroutine to 
translate the verb codes into 
EBCDIC form for listing, and also 
enables the subroutines to locate 
verbsum table entries. 



The COUNT chain, space for which is 
obtained by ILBDTCOO. This table is 
modified by the object-time execution 
statistics subroutines and contains the 
program-ids, pointers, and the node 
count table. 



• The node count table contains the 
current number of times each 
count-block is entered. A count-block 
is a set of COBOL verbs such that 
(exclusive of ABENDs) each verb in the 
block is executed if, and only if« the 
first verb is executed. 



• The verbsum table, space for which is 
obtained by subroutine ILBDTC30. This 
table is built at termination of object 
module execution and contains a summary 
of the information in the count tables 
and node count tables. 



The COUNT subroutines use the count 
common area (ILBDTCOl) to control the 
monitoring process. It also uses the 
debug common area (DBGOCOM) for 
printing. These tables, chains, and 
common areas are described in "Section 
3: Data Areas." "Section 2: Program 
Organization" shows how the tables are 
used. 

COUNT OPERATIONS 

At the start of object module execution 
the debug control subroutine calls the 
ILBDTCOO subroutine to begin implementation 
of the COUNT option. 

During object module execution 
subroutine ILBDCTIO is called by compiled 
code to update the counts of the frequency 
with which count-blocks of object module 
statements are executed. A count-block is 
determined by the compiler on the basis 
that any statement in it is executed if and 
only if all statements in the block are 
executed. The start of a block is called a 
node. 
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An exeunple of what constitutes a 
count-block is as follows t 



Statement 
Number 

1 

2 

3 

U 

5 



Statement 

Type , 

ADD 

SUBTRACT 

MOVE 

IF... 60 TO. 

ADD 



Statement 1 is a node for the first 
count-block, which consists of statements 1 
through the IF in statement 4. The GO TO 
part of statement 4 is the node for a 
second count-block. Statement 5 is the 
node for the third count- block. 

Each count-block is assigned a unique 
number. At each node in the object module 
is embedded a call to ILBDCTIO with a 
parameter consisting of the appropriate 
count-block number. 

At termination of load module 
execution, abnormal or otherwise r the 
ILBDTC20 and ILBDTC30 subroutines write 
the COUNT option statistics on SYSCOUNT. 

Diagram 12 in "Section 2t Program 
Organization" show COUNT operations in more 
detail. The subroutines themselves are 
described individually below. 



COUNT Initialization Subroutine (ILBDTCOO) 
IKAI 



Operation: Initializes the count common 
area, gets space for and initializes the 
count chain, and initializes the count 
chain pointer in the object module TGT. 



Called by ; IL6DDBG0, which was called by 
INIT3. 

Linkage : 

L R15,=V (ILBDTCOO) 

L Rl, A (parameter list) 

BALR R1U,R15 

where the parameter list is: 

DC lH*nurober-of -count-blocks* 

Calls : GETVIS 

ILBDDB61 

Input : 

1. Register 1 points to the number of 
entries for the count table 



2. Register 8 points to the TGT 

3. Register 13 points to the debug common 
area (ILBDDBG7) 

<». Registers lU, 15: standard linkage 

Output : 

1. Count chain generated and initialized 

2. count common area initialized and/or 
bits set in count common 

3. Object module TGT points to the count 
chain 



Count Frequency subroutine (ILBDCTIO) [KB3 



Operation t Updates the appropriate node 
counter by one and saves the caller's 
count*block number in the count chain. 

Called bv : Generated code in the object 
module. 

Linkage : 

without SYMDMP option 

BALR 1,12 

DC H* count-block number* (Goes to 

the COUNT linkage area in 

the PGT) 

with SYMDMP option 

BAL 1,8(12) 

DC H* count-block number" (Goes to 

the COUNT linkage area in 

the PGT) 

where the COUNT linkage area of the 
object module PGT contains: 

L 1 5, =V( ILBDCTIO) 
BCR 15,15 
DC 1H*0« 

Calls; None 



Input : 

1 



Register 1 points to the block number, 
and the return address is at 
002 (register 1). 



2. Register 12 points to the PGT 

3. Register 13 points to the TGT, where 
are contained the save area and a 
pointer to the appropriate count chain 

4. Register 15 points to this subroutine 
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Output t 

1. Appropriate node counter updated by 
one 

2. Count chain contains the last 
count- block number 

COUNT Termination Subroutine (ILBDTC20) 
IKCI 



Operation : Called at termination of object 
module execution to determine if there are 
programs being monitored. If so, it calls 
subroutine I1BDTC30 to write execution 
statistics, and if the termination is 
normal, calls ILBDDB68 to close the debug 
print file. If the termination is not 
normal, the debug print file is left open 
for debugging information. 

called by ; Generated code in the object 
module, ILBDDB62, ILBDABXO. 

Linkage ; 

from ILBDDBG2 

LA 1,=X«FFFFFFFF' 
L 15,=V(ILBDTC20) 
BALR 14,15 

from all other callers 



SR 1,1 

L 15.V(ILBDTC20) 

BALR 1U,15 


Calls: ILBDTC30 
ILBDDB68 




Input: 




Register Contents 


Meaning 


1 Zero 


Close debug print 
file after ILBDTC3 
executes. 


Pointer to 
X»FFFFFFFF' 


Do not close debug 
print file after 
ILBDTC30 executes. 



13 


Pointer to 




save area 


11,15 


standard 




linkage 


Output: 


None 



COUNT Print Subroutine (ILBDTC30) [KD] 



Operation ; This subroutine computes and 
writes execution statistics on the debug 
print file upon termination of the program 
being monitored. 



Called by : ILBDTC20 
Linkage : 



L R15,V(ILBDTC30) 
BALR R1U,R15 


calls: 


ILBDDBGl 
ILBDDBG8 
FREEVIS 
GETVIS 




Input: 






Register Contents 


Meaning 


1 


Zeros or 

X«PPPFPFFF* 


From XL] 


9 


Points to count 




common area 




13 


Points to 
save area 





14,15 Standard linkage 
Output : 

1. Printed execution statistics 

2. Space for the count chains released 
3- Count common area updated 
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Chart HM. VSAM OPEN And CLOSE Subroutine (ILBDVOCO) (Part 1 of 2) 



* ILBOVOCO. ♦ 

• ILBOVOCi ♦ 



PRtLUDt V 



INITIALIZATION 



BASEADDA • * . 




CI *. 




• • *. 




,» OPEN OR ♦ 
*. CLOSE REQUEST 


CLOSt: 


-1 


*. •♦ 


***** 


'OPtK 


♦ 02 • 






♦ Al» 






* * 






* 


IDOPt;N 


' 




^ Dl »■' 








• STORE REGltt 








^*#4*4>## 


>***•** 


»* 



• • OPENiu 0J> ». YES 

• . CLOSiiL) KITH .* 

• . LOCK . • 



♦ F2 • 

* ♦— , 
**** I 

Mi^01002 V 

*****P2********** 

* CLtANl'P * 

« fHtt STOnAGE ♦ 

— >*assck'iate;i wiTh*- 

• KILb ♦ 



.♦i.N^ OF rCB *. YES 

->*. LIST •• 

*i •* 



ML03000 it 

***b«*********** 



OPEN ALL ACB'S 



•****Ctt********** 



* FOR ERRORS 



.♦ ♦. YES 
'. ANY EMfiORS .* > 



i4bC5002 ^ 

**«**^U*** ******* 

* GETKtA ♦ 

*GfcT tNURBA l-Oh * 

— >* FILi OPhwtL. . » 

* OUTPUT ♦ 

* * 
***************** 



NO .*&NU OF f'CL 

*. LIST 

*, 

♦ . . ♦ 



**************** 



Kooeoott 

•****g5********** 
• CLEANUP * 

• FRE£ STORftGE ♦ 
♦FOR FILES WITH * 

* ERRORS * 



* S£T UP STATUS 

* KEYS li'' 

* FECUlREii 

**************** 



.♦END OF FOB 
LIST 



*************** 



YES 



G2 ». 
• * *• 

, ♦SEOUENTIAL ♦. 
RCCtSS . ♦ 
*. .* 



MD01008 
♦♦♦♦♦ H2 



♦♦♦♦*H3** **•♦♦*** 



• ****Hl«* *♦♦***•* 



.* ♦.MO 
». INDEXED .* 



Jl 



SAME MECORD 
AREA ASSUMED 



» • ISSUE GtTVISl ♦ 

• >*EOILO SKELETAL ♦ 

• * FIELDS * 



.* ♦.NO 

*. OPTIONAL .* 

*. .* 
•. .» 
*. ,* 
♦YES 

• **• 
l_>* * 

* F2 • 

♦ ♦ 

♦ ♦♦* 



**************** 



•«***H 5* ******** 



**************** 



****J5* ********* 



**********♦♦♦♦♦♦ 

I ♦♦♦* 
L_>» * 

* P2 * 

* * 
**** 



Section 2: Program Organization 125 



Licensed Material - Property of IBM 



Chart HM. VSAM OPEN And CLOSE Subroutine (ILBDVOCO) (Part 2 of 2) 



***** 

*02 ♦ 
* Al* 



**•********••**• 



******•********< 



♦ uFACTIVATE »- 

♦ LiKAD/SYNAD • 

♦ £XIT ♦ 

» * 

***************** 



ul *. 
t 

RERUN 

». 

*. . * 

♦ NO 



E£01A1 

*****Q2********** 

•ILBDCKPO ♦ 

*-*.*-*-*-*-*.*-* 

>• ♦ 

•TAKE CHECKPOINT* 

* * 

***************** 



NO .♦LND OP FCE *. 
». LIST .*<- 



.» ANY FItES ». YES 
>. TO CLOSE .♦ 



»****P2*»******* 

I CLOSE 

>♦ THE 

* ACB'S 

**************** 



SUCCESSFUL . ♦- 
», ,* 



KDC106H .♦. 

H2 ♦. 

. * * 

*. CLOSE ERRORS 



•*•*•*•********• 



*****i]3** ******** 



***************** 



*****J3********** 



126 Flowcharts 



**••****••******• 



****•**••*•****** 



.* USE *. NO 

->♦. DECLARATIVE .* 

*. HEEDED .* 



***************** 



* CLEANUP ♦ 

->* FREE STORAGE ♦- 

* FOR FCB'S • 

* • 
***************** 



MDC30S0 

****X5********* 



->• RETURN « 

* 4 

*•*****•*••**** 
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Chart HN. VSAM Action Request Subroutine (ILBDVIOO) 



t i 

* ILBDVIOO * 



•INITIALIZATION * 



****••**•******•* 



. •. 

CI •. 
.» •. 

♦ • t 
FILE OPEN .*- 

.* 
*. . * 
*. •• 
•YES 



ACT00680 



• SET UP CUMEMT 
->* RECORD AREA 
I ADDRESS 



* 
* 



ACTIVATE 

LERAD/SYNAD 

EXIT 



[oii"ci'?.AMipii 
ROOTIHl _ 



ACIOOOCU 

•••**L1** *•**•*•• 
DET£P>iIN£ 



• AP?i«OPRIATt * 

* ROUTINt • 
***************** 



ACT00700 



Fl ♦. 

.* *. 

FILE OPiN 
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Chart lA. Separately Signed Numeric (ILBDSSNO) 



» ILBli5^SNC < 



♦ Si.T LOW-OaCtR «• 



». YES 

I£; dIGM - .» 

.* 



»****C2**** ****** 

*Sc.T LOW-ORDLR 4* 

• BITS OP ♦ 

.>.5«£CEIVIH9^fIELD.. 



****C3********* 

* « 

->• RETURN * 



* 

ISSUt tRKOh • 

XtSoAGE. ;UKP • 

AiJt- TiRSINATE » 



. *. 

Gl *. 



*riIGH-OK{>EK *. YES 

« BITS«X'F* .* 

*. OR »C»^ .♦ 



OR 'C 

. .♦ 
*N0 



*****a2********* 

hKE.SEPAR 
SIGN A * 



•••••H2*** ••••*• 



.•high-order'*, yes 

*. « B1TS«X*^D* .* 



••••*H3********** 
• * 
<r *SET HIGH-ORDER * 
>*tt BITS TO X^F' *- 



•****J1* *••*•**** 

• • 

• ISSUE ERROR • 
*MESSA6|. DUMP. * 

• AND TERKINATE * 



****K1 ********* 
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Chart JA, Test (ILBDDBGO) (Part 1 of 2) 



.* CALL BY * 
.SEGMENTATION 
* . SUBR . * 



s^«§fFit iBm^""" 



SYH JJ01A2/JP01A2 

*****C2********** 
*ILBDHP10/20 * 



INITIALIZE 

PROGRAM/ 

SEGMENT 



♦ 02 • 

♦ r3« 



» 1ST ENTRV *. 

TO ILBDDBGO . 

*. .* 

*. .* 

*. .* 

*YES 



♦« STXIT MACRO •• 



NOTFIRST 

••***D2** ******** 

*SET LAST EQUAL * 
>*TO REGISTER 13 *• 



D3 



.* SYNOMF *. YES 
->*. REQUESTED .* 



*****F1********** 

* * 

* SET FIRST AND * 



*****G1* ********* 



****H1********* 



.*. 

Jl *. 

• * *. 

.* PROGRAM HAS*. 

SYHDMP 



E3 

.* *_ri 

'*, 

», 
*. 



.* 

rifOM *. YES 
— >*.. REoiwSTED .* 



JJ01A2/JP01A2 
****«D<i********** 
•ILBOMFlO/20 * 
•—*-•-•-•-•-•.*-• 

->* INITIALISE • 1 

* PkOORAH • 1 



J601A1 

«****E4********** 
*ILBDFLH0 * 
•.*_*.*.•-•-*.*-• 



*N0 
l.->*02.* 

• r3 * 



*. 



.* 



•YES 

l.>*02 * 
* Bl * 



Section 2: Frograrn Organization 129 



Licensed Material - Property of IBM 



Chart JA. Test (ILBDDBGO) (Part 2 of 2) 



**** 


♦02 * 


* Bl •-- 




**•* 


TGTLOOP 



• *•* 

• * 

• B2 • 

NOCOB V 

*****B2********** 



— >*.MAIN PROGRAM 



• Bl " 



*************** 



>>* AREA ADDRESS 

* * 

* * 
*****•*******•••• 



***«B3********* 



C3 •. 
.* *. 
.* IS THIS •• NO 

*. COBOL PROGRAM.* i 

*. •• ] 

♦ . .• V 
*. .* *•*• 
•YES • • 

I : " : 
**•* 



•****£1 **•**•**•• 

* * 

* GET ADDRi^S * 
*BEyOND LARGEST * 

* SEGMENT • 

* * 
***************** 



* GET ADDRESS 
->*BEyOND PROGRAM 



•*•••*******•**•• 



.* PROGRAM *. NO 
>. NAMES EQUAL .* ■, 

*• •* 1 

♦ . .* V 
*. .* •*** 
•YES • • 
I *••*• B2 • 



->• 



Bl « 
• 4 

• ••• 



**•* 
» 4 

► F3 * 

t * 

*••* 



(SYKUHP) 

* * 

* * 
***************** 



(SYMDMP) 
ADDRESS 



**************** 



V JJ01A2 

• ****[)! ********** 

•ILBDMPIO * 
*-*-*-*-•.•-•-•-* 
» INITIALIZE • 

* COBOL PROGRAM * 



*****jl ********** 
♦SAVE LOAD POINT* 

* ADDRESS FOR * 

.* SYSTEM • 1 

* SORT/MERGE * I 

* PROGRAM * V 
********************* 

* • 

* F3 • 



— >•. COUNT OPTION . 
• . .* 

*. .* 

*** *. .• 



KAOlAl 

•••••63**^*^^^^^' 

•ILBDTCOO 

•-•-•-*-*.•-•-*- 



INITIALIZE 

COUNT DATA 

AREAS 




ILBDSRTO USES 

THIS ADDRESS 

TO LOAD SORT/MERGE 

PROGRAM 
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Chart JB. Print (ILBDDB61) 
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t ILBD0B61 * 



ENTER FROM SYMDMP, 

tm 88 SSSSt" 



* : 



*. .* 

•NO 



EXOlAl 

*$$BCOB£H * 

>* MOVE ERROit *- 
MESSAGE TO • 
BUFFER • 



JB01F5 
*«***Blt********** 
*WRITE1 • 



^^^^..-'iS^fEa^r:.!??- 



->*. CHECK CODE 






BRANCHING IS VIA 
OBGIRTNS BRANCH 
TABLE 



• *«• 
» « 
> t;3 4 
» 4 

• •*• 



-r 



RTPASS « JB01F5 

•••••Dl**** ****** 

*vmiTEi * 

*-•-•-*-•-*.*-*-* 
* WRITE. IF * 

:EJf|gf*i«lR«ftgfto: 



HRTMOEJ V JBOIFS 

*****D2**** ****** 
•WRITE! • 

• * 

• VIRITE RECORD • 



WRTFOOT V JBOIFS 
*****D3********** 
•HRITEl • 

*-•-•-•-*.*-•-•.* 



WRTHEAD V JBOIFS 

•••••DU ••***«•*•* 
•WRITEl * 

•-•-•.*_•-*-•.*-* 



» El 4 
• 4 
**•• 



SAVE BUFFER 

ADDRESS IN 

CURRBUFF 



•***«£3********** 



V 

RETURN TO * 

CALLING * 

SOBROUTINE < 

»••*******•*•* 



••*F3 ••••••**•*« 

=glS 



ENTER FROM 
SEVERAL "- " 
IN ILBC 



EJHEAD V JBOIFS 
*****D5* ********* 
♦WRITEl ♦ 

*-*-*-*-*-*.*.*-* 



***************** 



*««*f 5********* 



*****Q3********** 

• • 

• SAVE BUFFER • 

• ADDRESS IN * 

• CURRBUFF • 



•****G5********** 

* • 
•DETERMINE LINE * 

* COUNT AND * 

* SPACING * 

* • 
***************** 



•••••J2^« 
^i 



T 



JBOIFS 

•WRITEl 

~ .•-•-•-•_*. 



• EJECT PAGE 



» El * 
• « 

• ••* 



.• •. 
.• CODE ■ 0, •. NO 
*••. *• 5 ^^.—. , 
*. .* V 
*. .• •••• 
•YES • • 
• El ♦ 



WRTFOOT V JBOIFS 
•****J3*«***«««*« 

•WRITEl • 

•-•.•.•.•-*.*-*-• 

• * 

• WRITE FOOTING * 



» El * 

» 4 

• ••• 



EJHEAD V JBOIFS 
•••••JU^^ •••••*** 
•WRITEl 



•-•-•-*. 



.*-*_*.* 



• EJECT. WRITE * 
HEADING * 



**•• 
->• * 

* fcl ♦ 



* * 

ISSUE PUT KACRO 



*****J5* ********* 

* * 

* INTERCHANGE * 

* BUFFER • 

* ADDRESSES * 



•***KS***^^*^^* 
• RETURN TO * 
*CALLING ROUTINE* 
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Chart JC. STXIT (ILBDDBG2), TGT Address (ILBDDBG3), and Save Register IH (ILBDDBGU) 



♦ STXIT ROUTINE *- 

* * 
*************** 



THIS ROUTINE WAS 
SPECIFIED IN STXIl 
ISSUED BY ILBDDBGfi 



,*, 

A2 *. 
» DID *. 

PDB62 *. YES 
_1"^1Y ,♦--— 
.'TERMINATE.* 
*. .« 
♦. •• 
*NO 



*****B2********** 



DEAD JBOlAl 

••*A3** ********* 
ILBDDBGl 



V 
.♦. 

C2 *. 
. * DID * . 
.* ILBDDBGO 
. ABNORMALLY 
*. TERMINATE. 

'*. .*" 



» EXECUTION 

STATISTICS 

». ROUTINE . 

*. .* 



» B3 4 



* ISSUE EOJ MACRO* 
* INSTRUCTION * 



****C3****«**** 

• EXIT TO • 

• TERMINATE * 

» 4 

•*•*•**•******• 



'""SS^Ia 



ENTER FROM 
COBOt PROGRAM 



• ENTER FROM 

* COBOL PROGRAM 



AFTER RETURN 
FROM CALLED 
PROGRAM 



BEFORE 
BRANCH TO 
ANOTHER 
PROGRAM 



****«B4********** 



*****B5********** 

* * 

* SAVE CONTENTS * 
*0F REGISTER it • 

* IN SAVERld * 



V 
RETURN 



****C5* ******** 
» « 

> RETURN « 
* * 

•«*******•*•*** 



„ V KCOXAl 
•**E2 *********** 

ILBDTC20 
».__-..„.-.- * 

WRITE COUNT 
STATISTICS, * 
IP ANY 





**** 






* • 






* Fl * 






* *. 


■* 




**** 


L00PDBG2 


.♦. 




Fl 


*. 




.* 


*. 


NO 


.•ADDRESS OF 




.♦.INITl 


WITHIN 




*. REGION . 



COBOL 
PROGRAM 



, * PROGRAM *. YES 

. NAMES EQUAL .* 

*. .♦ 

*. .* 



:«» 


*, 
* 


*!!! 


*. .* 







**** 
« * 

• 05 * 

* •__, 
**•• V 

PFLOW .*. 
G5 * 
.* 

>* '. FLOW 



*. •» 

*m 



*****{]!* *•*•*•*** 

* * 
*SET SWITCH FOR * 

* NON-COBOL * 

* PROGRAM * 



*••* 
► Jl < 



.FIRST 
*. 

*. 



**** 

* « 

* B3 « 

* « 

**** 



NEXTDB62 V 



.* 
. ,* 
*YES 



. V JPQ1A2 

•****J3********** 
*I^DMP2^ ^ ^ • 



• ••* 
* « 
» Jl < 
» « 

• *** 



.* 
'*}E8 



• *. 

HH *. 

.* *. 

YES .* B 

♦. Mi.„ 

*. PfZS 



*. 



*. 



**** 

* * 

* Jl * 

* * 
**** 



V JGOlAt 

• ****IJ5** ******** 

*ILB0FLW2 * 

*_*_*-*_*-•-*.*-• 

* PRODUCE FLOW * 

• TRACE * 

* * 
***************** 

I**** 
->* * 

* Jl * 



JFQIAI 

*****K5********** 

*ILBD8TN0 * 

•-*_*-•_*.*-•_*-• 

■>* COMPLETE * 

* MESSA6L * 



L.- 



**** 
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Chart JD. Dynamic Dump (ILBDDBG5) 



ENTBR PROM COBOL 
PROGRAM VIA pOT TO 



sg'^^sfc.fi'^fi 



•SAVE REGISTERS 
* I» SAVE AREA 



* B3 

• ••• 
*****B3********* 



■-1 




•••*D1********* 
GET SYMDMP ADDR 



•••**D3********* 



SET RECURSION 
SWITCH OFF 



•.*-•-*-*-•.*.•.* 



•***E3********* 
S 



**«**F1********** 



INS) 



*****G1********** 
*6ET INSTRUCTION* 

• PROGRAM * 



•***G3********* 
•RETURN TO COBOL* 
• PROGRAM • 



•COMPUTE LENGTH 
•OF INSTRUCTION 



^•••* 
->• • 

• B3 • 
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Chart JE. Range (ILBDDBG6) and Chose Debug File (ILBDDBG8) Subroutines 



•***B1********* 



60BACK IN 

HIOHER 
. PROGRAM . 






SYMDMP RANGE 



•••**C2* •••****•* 
•TURN ON • GOING * 



•••B3*********** 



••••C3********* 
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Chart JF. Statement Number (ILBDSTNO) (Part 1 of 2) 



» * 

» ILBDSTNO « 



■i 



.* FIRST ENTRY*. VES 

». TO ItBDSTNO .• 

*. .* 

*. . * 



****B2********* 
> « 

• RETURN * 



♦ A3 

* 

****«A3**«****** 



1 



*****B3** ******** 



3IN0X. A 
BHDPGM 



• * *. 

> t 

FLOW ALSO 



. • ; 



••••*C2* ********* 



* INCREMENT DEBUG* 
>*TABLE PTR BY M • 



**•***•**••••*••• 



****D1********* 



***** El** *••**••* 

* * 
•GET REGISTER 13* 

* FROM STIXIT ♦ 

* BLOCK * 



.*R£GISTER \i*. NO 
. « TGT ADDR .* 



**•* 

* * 

* F2 * 
,*** I 

*****F2 ********* 
* 

* GET REGISTER 

>* in, SET SW 



****G1********* 

CALCULATE 

INTlRRyPT 

ADDRESS 



.* INTERRUPT *. YES 

► . ADDR ■ .* 

*. •♦ 



*****J1********** 
* * 

*CALCULATE ADDR * 



G2 *. 
.* ♦. 

, *R£6ISTER 14*. 



***** 
*02 * 
* 52* 



*****H2*** ******* 

* CALCULATE * 

* ABENDING * 

* INSTRUCTION * 

* ADOR USING • 

* REGISTER 14 * 



**** 
»* * 

* A3 • 

• * 
**** 



.*. 

J2 *. 
,* *. 

* *. YES 
SW ON .* 1 

*. .* V 

*. .* ***** 
* *02 • 
* J2* 

* * 



Kl *. 

.*'*bmwIeh***. no 

>. START DCL t .* 

• . qAtns . * 

*. .♦ 
♦. .* 

*YES 

L**** 
>* * 
* A3 * 



X2 



****D3********* 



GET START FROM 
INITl 



C« *. 
.* ABEND *. 
.*IHsro ADDR *. NO 

>*.BTW START DCL.* 

*. ( QRTNS .* 
♦ . .♦ 
*. .* 
*YES 



FRAGMENT 



* F3 ♦ 

* *-> 

**** 



*****r3********** 

* CALCULATE * 

* RELATIVE * 

* ADDKBSS OF * 

* ABENDING * 

* INSTRUCTION * 



*****G3********* 



K3 



*. 



*****C5********** 

* * 

* GET ADDR OF * 
>*TRANSIENT AREA * 

* FROM INIT 7 * 

* * 
***************** 



***«*05* ********* 

* CALCULATE * 
*ORIGIN OF FIRST* 

* FRAGMENT * 



• F3 « 

**** 



£4 *. 

.* *. 

NO .* *. YES 

*. END SEGINDX .* •, 

*. .* 1 

♦ . .♦ V 

*. .* **** 



♦ H4 • 

• * 
• *** 



• •***pil********* 



* SET SEGCTR 

* SEGCTR+7 



**************** 



.* CUKPTYi *. ■ 


>*. SEGINDX ENTRY.* •, 

*. .* 1 
*. .* V 


*. .* ***** 


*> *02 * 


**** 


* A2* 


* * 


* * 


* H4 * 


* 


* *-> 




**** 




" 


* * 


«*** 

._>*02 * 




* J2 * 



^0 



.* ABENDING 

->*.INSTR ADDR IN.* ■, 

•.TRANSIENT.* i 

*•*?=**•♦ ***** 



I YES**** 
* A3 ' 



♦ P2 
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Chart JF. Statement Number (ILBDSTNO) (Part 2 of 2) 

• 02 • 

♦ A2* 



•••*«£1 ••••**••** 



••*****••*•****•* 



*****C1* ******** 



**************** 

• *** 

* * 

* B2 * 

* * 
**** 

.*. 
B2 *. 

.*AbENO INST**. > 
•*.ADDR| SEGINDX.*— 
*. FRG ADR .* 
*. .* 



.* 
LPTY 



*. 



*> 



*. 

**. YES 

. * 

,* 
,* 

• NO 



.*"''*'••*. 
.* CURPTY - *. NO 

*. NEXT PTY IN .* 

*. SEGINDX .* 



*****D2********* 



,* 


SEGINDX 


*. 


* 




.• 




*. . * 




♦ . .* 






*YES 






u*- 


• •* 








* 


B2 



*****E2*^**^**^^ 



*****CX*******^^* 



CRDPTR ■ 
CRDPTR+5 



***************** 



V 
.♦. 

HI *. 



V 
.*. 

62 *. 
.* REL *. 
.* AODR OF *. > 
• *. ABENDING .* <• 

*. .* **** 

*• * « 

*•** * ji 

* • 

• H2 * **** 

• * 
**•* 

• ****I]2* ••**•**•* 

• MOVE CARD NO. • 
•AND VERB NO. TO* 

• OUTPUT AREA • 



*. 


.* 


*•** 


********< 


»******•* 


• NO 


* 


* 






•••• 




* 


F2 • 


***• 




• * 




* 


* 


• 02 * 




• Jl • 




♦ ♦»* 


* J2 •-> 




• •-> 








* * 




**** 








• ••* 




'f 






V JBOlAl 






*****j2********^* 
*ILB0DB61 • 


* 


• 




: «^?Rgp§i?f - 


• 
* 




* GET BUFFER * 


• 


* 




* ADDRESS * 


* 


* 
»* 




* * 


*** 






->* 


* 








* H2 


• 








* 


* 








**** 














'f 








*****l(2**** ****** 
*MOVE MESSAGE TO* 














♦ BUFFER * 








* * 


f. ^l>^r 


tt.i<^ha 


vA 


-o 


* * 
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•***A1********* 
» * 

* ILBOFLWO « 



****A2********* 
* ILBDFLHl * 



****A3********* 

» 4 

» IX.B0FLM3 ' 



****«B2********** 



*«***B3********** 



.* *. YES 
► • INITSW ON .♦ 



•OET ADD! 
*TRAC; — 
*TGT 



ADDRESS OF * 



«*«**D1***«*****« 



*****E1* *••**•*• 
*TURN XHITSW ON 



» * 
» Fl * 

* * 
••*• 

•***P1*****«*** 
» 4 

• RETURN 4 



m^ 



i< — 
.*. 

C2 *. 

.* DOES *. 

YES .* PROG-XO * 

-*. MATCH ONE IN 

*. TABLE .« 

*. .* 



.♦. 

D2 *. 
.♦ *. 
.* IS SI/>T 
*. AVAILABLE 



J 



*****C3********** 

* SET MESSAGE * 

* ILAC15|I«N0 * 

* PROCiDURES *< 



•*** 

->♦ - • 

* C5 • 



* SET ERROR * 
*HESSA6Ei TRACE * 



•******•***•****• 
• •** 



•****E2********** 



****AU********* 

> 4 

» ILBDPLU2 4 

> 4 

********•«••**• 



(NO TRACING 
DONE) 



.*. 

cu *. 
.* *. 
YES .* NXTAVL ■ ♦. 

*.PBEG AND LBEG.* 

*. "0 .♦ 



HEADLINE V 

• SfcTASA * 
CHARACTER AND * 



**•*****•••****** 



JBOlAl 

***£!) *********** 
ILBDDBGl 

*-_-.—.„.„ * 

— > WRITE BUFFER 



DIAGTEST ..*. 



.* ARE THERE *. NO 

•>*. DIAGNOSTICS .* ■, 

*. .♦ ] 



•YES * 

•••• • ri 

* * * 

* C5 * •**• 

* *-> 

*♦»• 

WRITDJAG ,^J,,,^„,,^ 


* PUT OUT ♦ 
DIAGNOSTICS 






**** 

L>* • 

• Fl ♦ 

* * 
• ••* 






*****G2********** 



♦ ENTL.. _ _ 

* CARD HUM! 



S-BYTE * 
NUMBER * 
TABLE * 



LASTPRNT JBOlAl 
ILBDDBGl 



I**** 
->• ♦ 

♦ Fl * 



*****H2********** 
• • 

•POINT NXTAVL TO* 

' T 81 ' 

TAB 



H3 



• *. 



• . 



• • •• 
.•NXTAVL > OR^. YES 

► . - PENO .* 

♦. .• 

*. .* 
*. .• 
•NO 



• •. 

) •. 



* CONVERT LINE • 
•NUMBER TO DEC.,* 

-* UNPACK. FILL * 

* BUFFER WITH * 

* TABLE ENTRIES * 
•••••***••*****•* 



**«**HU**^^****** 

* TURN LBEG ON * 

* (INDICATES » 
>* TABLE *- 

* WRAP-AROUND) • 

*•*•••••*••**•••• 



• * 

• POINT NXTAVL ♦ 
->* BACK TO START * 

• OF TABLE * 



*. NO 

. FLWl ENTRY .* 

*. .* 



**^^JI| ••*****•* 

• RETURN TO • 
->• CALLER VIA R14 * 

• • 
•**••••*••*•••• 



**K3**^*^**^^ 
rURN TO MAIN * 
3GRAM VIA RI • 



•RBTUf 

•PROGF 
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Chart JH. SYMDMP - Overall 



♦ ENTER FROM ♦ 

* COBOL PROGKAM * 



V JAOlAl 
*****B1 ********** 

*XLBDDBGO * 

*-*.*-*.*-*.*-*.* 
* TELL SYMOMP ♦ 

***************** 



Cl ♦. 
.* ♦. 

.♦FIRST TIME •. NO 
. TO SYMDHP .* 



"i"orl - 

«P J 



V JJ01A2 
*****Q1 ********** 

*ILbDMP10 * 
*-•_*-*_*.*-*-*-* 
•COMPUTE AODRS (• 

* MODULES AND * 

* READ CARD • 
***************** 

**** 

* * 

* El • 

* • 
**** 



•EOF ON SYSIPT.*- 
♦. •♦ 

• • . ♦ 



if JL01A2 

••***F1 *•••*•***• 

*ILBDMP11 ♦ 
*-*-•-*-*.*.*-*.* 

* BLD PCONTROL * 

* FROM PGM-CTRL ♦ 

* CRD. READ CRD ♦ 
*****(*********** 



••**«E2********** 
* STORE SIZE OP * 
* SYMDHP OVERLAY * 



JP01A2 
*****A3********** 
*ILBDMP20 * 
*-•-•-*-*-*-•-•-• 
->* DETERMINE * 
•MODULE TO FETCH* 



fpASS V 
OF SYMDMP 



V 



.♦CALLED FOR ». YES 

INIT .♦ 

• . .♦ 



.* *• 

•• ♦. YES 
•.DYNAMIC DUMP .♦ 



. .♦ 
•HO 



JROlAl 
• ••••BI|******iS** 

•ZI.BDMP21 



fXF ANY DYNAhTAB 
OVERLAY MAIN 
STORAGE mERE 



*.•-•-*-•-•- 



*•*••******••*•** 



c^ ♦. 

»**CO0N^ '*. NO 
PERMIT DUMP .* > 



*. 



*. .* 

• YES 



~| CONDZT 



• ****[)3*******i*{ 

•ILBDMP21 • 
*-*_*-*.*-•-•-•_• 
•OPEN DEBUG FILE^ 

• RELOC COMPUTE • 

• LOAD ADORS • 



V JW01A2 

**«**£3** ******** 

•ILBDMP25 * 
•_•-*-*-*-•.•.•-• 

• ISSUE STATE • 

* MESSAGE * 



*••* 

* 4 

♦ P3 * 






J301A1 
•***»F3********** 

•ILBDMP22 * 

*-*_•_*_*-*-•.*_• 



NUMBER .* 

.* 
. .♦ 
• YES 



**** 

> « 

> El « 

> • 
**** 



JM01A2 

• ****i]l ********** 
•ILBDMP12 • 
*-*-*.*-*-*-*.«-* 

->• BLD DYNAMTAB • 
•ENTRY FROM LINE* 

* CONTROL CARD • 
*************•**-. 



.• LAST NAME •. YES 

* . PROCESSED . • 

• • •* 



RETURN TO 
IUODB60/2 



JU01A2 
*****H«*^***^^**^ 
*II.BDHP23 • 
*-•-*-*_*-•-•-•-• 
>• DUMP LEVEL • 
• DESCRIPTION * 



••••*••• 



»*••*••• 



V JV01A2 

•••••J3^*****«** 

*ILBDMP2« 

•-*-•.*-•-•-*-•_ 



-• DUMP PD, 8D. 
*RD, T6T, INDEX 



V JNOlAl 
*****K1* ****•••• ' 
•ILBDMP13 

*-«-*_*.*_*.•-•- 



FILE. 



FOR NAMES 1 ENTER 
TABLE LOCATORS 
IN DYNAMTAB 



JO01A2 

2^^^ 

•ILBDML _ 

•.•-•-*-•-*.•.«- 
->^SEARCH CARD FOR 
* CARD HUMS 

* 
«*•*•***•••*•***. 

I •••• 
l_>* t 
• El < 



ENTER PRIORITY 

siA^Rr 



IN 



138 Flowcharts 



Licensed Material - Property of IBM 



Chart JI. lODISK/IOTAPE (ILBDMP01/ILBDMP02) 



ROUTINES 



;1 •**»A2********* 



A3 *. 



OPEN 

r 



tOZNT 



OPBNIT _,.♦. 

B2 *. 
.* *. 
.* *. NO 

*. IS OTF OPEN .* 

*. •* 

*. .* 
•• .* 
•YES 



0PEN2 ^c2**-.., 

*. •* 
*. .* 

•NO 



•^«>ffn*o2. 



CLOSE IjO THE 
OPEN DTF 



NEWf}^^ V 



• (■REMIMO* TO • 

• STMtT) • 



• ••• 
->• • 
• C3 • 



••••r2^********^ 

OPEN (R) THE • 

DTF • 



• ••• 
->♦ • 
• C3 ♦ 



READFIL -.•♦•^ 

.*' SWITCH **. NO 

• . .* 
• • ,• 

•YES 

•••• 



• C3 • 

• •-> 

*«•• 

*'^iI**C3««^**^*** 
•REAb S: 



''^•!I«D3********* 

»CHBCX LAST READ' 



E3 ♦. 



,• 



*. 



*. OFF 

N0TE8M . •-- -1 
• • .* 
*. •• 
• • .* 
•ON 



.♦. 

03 •. 

.* •. 

.• *. ON 

*.ON£BUF SWITCH.*— 1 

• . .* 

*. .• 

*• 1* 
•OFF 



REAOZT « 

*****H3**^*^**^* 



READ BLOCK 



POINTFIL V 

• CHBCXIT • 

•CHECK XAST READ* 

• • 

•••««•••••••**•*• 



•ISfJ* 

PI 



NTjJO ; 



"•^«§SJD»*t 

SET SINGLE ON 



"►••••E«»^*^^»*^^» 
READ BLOCK 



CHICKIT _ " 



•CHICK LAST REAO^ 



«*S»fIj3. 






• CLOSEIT- • 

• CLOSE CR) DTF * 



••••••**••••••••• 



••••C5^*****^^^ 
• RETURN < 
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****A2*** ****** 

» 4 

* ILBDMPIO « 
» 4 

•****•******•** 



START V 

•*«**B2********** 
*COMPUTE STORAGE* 

* AVAIL FOR * 

* PROGRAM AND * 
*LOAD POINTS OF * 

* OTHER MODS * 
•*****•*•*******• 



••***C2*** ******* 



• OPEN SXSIPT * 



HI 


biL 



*«••*•*******•«•• 



' ' JXOlAl 
*****D2********** 
*REAOIPT • ^_ 
*.*-*-*_*-*.*-*-*EOF 

* READ CONTROL * 

♦ CARD * 



->* CLOSE 8YSIPT • 



*-*-*-*.*. 



SCAN PROGRAM- * 
* CONTROL CARD. ♦ 
*REAO NEXT CARD * 

•**•*******••*«*• 



V 
.*. 

F2 *. 
.* *. 
NO .* IS FIRST *. 

*. ELEMENT 

*. NUMERIC .* 
*. .* 



FETCHPHS ^ JM01A2 
•**««62*** ******* 
*ILBDMP12 * 
*.•-*-«-*-*-*.*.* 

* SCAN LINE- * 

* CONTROL CARD. * 
•BUILD OYNAMTAB • 



FETCHPHS V JO01A2 

• •***l{2*******f** 
•ILBDMPIU * 
•-*-•_*-*-*_*.*-* 

* COMPLETE * 

: 8JS8{35A*i?JJS" : 

••*****•****•*•** 



.* *. 

.* ♦. YES 

I >*.EOF ON SYSIPT.* 

*. .* 



***************** 



*****Olt********** 

->* II^DBGO. * 

* COWUTE FREE * 

* STORAGE LEFT * 



^•t^EBSJS^ST" 



FGTCBPHS 

^ JP01A2 

* TRANSFER TO • 

• ILBOMP20 * 
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Chart JK. READIPT/ERROR (In ILEDMPIO) 



• • 

• READIPT/ERROR • 



V 

.*. 

Bl ♦. 

<* *• 

.•ERR BYTE > * 

*. ZERO 

*. .* 



«^2 .♦..^ „.•.,. 

.• ♦. •• ♦. 
.* *. OFF .*SCAmiED AU.*. NO 
>•. PLUSHSH ^.» >».^CAliD TCOL >^.* 

♦. .» •. .♦ 

*0N •YES 



••-J 



* « 

* B4 

•••**BU*******«** 
->• SCAN SWITCHES * 



L 






EOF* 

•READ NEXT CARD 



••«**D1 ********** 



'***02********* 
CLOSE SYSIPT 



. JBOlAl 

«****D3*******«** 

:£«55I2L*..-*.: 

*PRINT NEXT CARD* 



JBOlAl 
•****E1********** 
*IL8DDBG1 * 
•.*.*-*-*-*-*-*-* 
* CALL $$BCOBEH * 
*T0 WRITE ERROR * 



*****B2********* 



•****P1*******«« 



****61********* 
» RETURN * 



.♦. 

B3 *. 

.* *. 

.* *. YES 

*. FLUSH WANTED .* — > 
*. .* 
*. .* 
*. .* 
♦NO 



COL > 



* BU * 
•*•* 



r^iNr'JFSs?^ : 

♦ELEMENT (BUFFER* 
* ♦ COL) * 



.* 
D« 



.* IS BYTE *. NO 

*. BLANK OR .* i 

*. COMMA . * 



• **««£||«***««*«** 



* INCREMENT COL. * 
* AND POINTER * 



* STORE 
•>*0F NEW 

• AT 



***************** 



C5 *. 

.•IS BYTE*. 
.* LETTER, •. NO 

•. HYPHEN, .• 

•. NUMBER .• 



.•• 
E5 •. 



.• 
•YES 
< 



.•• 

r>» •. 
.• •. 

NO .* * 

•. COLUMN 72 

• . .< 

*. .* 
*. .• 
•YES 



• . .• 
• . .• 

•YES 



* SET EOCSW ON • 



* LEN • 



V 

.*. 
GS *. 



SET NUHSW ON 



•••••JS^*^ •••••** 
• • 

•C^iVERT NUMBER • 
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Chart JL. SCANP (ILBDMPll) 



****A2** ******* 
• « 

» ILBDMPll 4 



.*. 

B2 *. 

.•ROOM ENOUGH*. NO 

>. FOR TABLE .* 

*. .♦ 



*****C2********** 

* INITIALIZE • 

* PCONTROL AND * 
•SWITCHES. STORE* 

* PROGRAH-ID * 



SCANP 



JKOlAl 

****«B3***«****** 
* ERROR * 

->* ISSUE MESSAGE *- 



!LM V JXOlAl 
»**«*02^ •*•****** 
>READIPT * 
>.*-*-*-*-*-*-*-*END-OP-CARD 

» ELEMENT * " ~ 



E2 *. 
.* *. 

.* VALID *. NO V 

•.SYSNNN NUMBER.* 

*. .• 

♦ . .* 
*. .* 
•YES 



•••«F2^******** 



JXOlAl 

••«**E3*«***«***' 

*ERROR 



>* ISSUE. 



NXTCRO JXOlAl 

•*•*•£«••••*••*** 

•READIPT * 



con^l^SaSd 




•****62********* 
* SET PTABOX ON 



->• 



► •-> 

• ••• 

JKOlAl 
*****H2**^ •**•*** 
*REAOIPT *BN 
•-•_*-«-*.*-*.*-*CA 
GET NEXT *~ 
ELEHENT * 



*****J1*****«**** 



-•.VALID OPTION . 
*. .* 

*. .* 



V JKOlAl 
••***K2********** 
* ERROR * 



* ISSUE MESSAGE * 



V JXOlAl 

•••**j3**** *••••* 

*READIPT * 



****X3********* 

* RETURN TO • 

• ILBDMPIO • 
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Chart JM. SCAND (ILBDMP12) 




» * 

* ILBDHP12 < 



> B4 < 



****B2********* 
OPEN DEBUG FILE' 



*****c 


t********** 


* BTOR 


1 PROQ UN * 


•xmo 


:n com on,* 


• INS 

* 


LsF^ : 


* 




• •** 






• * 






• D2 • 






• *. 


.> 




•*•* 




' 



••***D2********** 
* CARD NUMBER • 



•9 JXOtAl 

****E2********** 



V 

.♦. 
ri •• 

.* *. 

NO .* *. 

•. NUMERIC .* 

♦ . .• 

*. .* 
*. •* 
•YES 



STORE VERB 
NUMB&R 



****H2********* 



.* 



,» 



32 



'ON' 



*. XE8 

♦ . •• 
*. .* 

♦• \* 

• NO 

* B» * 




• »~i^— — — 

**•• V 
I8ITHEX .*. 

B<» *. 

.♦ ♦. 

NO .* XEYHORD *. 

-*. (HEX. ALL. .* 

*.THRU, OF).* 

♦ . .* 



*«**«C3********** 

:!!S59in,...*...: 

->• 01 



.*. 

D3 *. 
.* *• 

.* *. NO 
NUMERIC . * 1 

*. .* V 

*. .* ***• 
•YES * • 
* Bit * 



• •** 



•****B3********** 



CORg^ggDING 

***••****•«**•• 



V JKOlAl 
****Dlt********** 
REAOIPT * 
_3C*.*-*-*-*-*-* 
GET NEXT * 
ELEMENT * 



I 



.♦. 

Ftt *. 
.* *. 
.* *. XES 

*. END OF CARD .* 

*. .* 

♦ . .* 
*. .* 
*N0 



*. YES 



NXTDYCRD JXOlAl 

•••••B5* ********* 
*READIPT * 

— >♦ • 

*REAO NEXT CARD * 

• * 

**•**••*******«•* 



FIRST 



>. YES 

.*— 1 



• *•* 

* * 

* D2 • 

* • 



V JNOlAl 
•••*«D5********** 
•XLBOMP13 * 
*-*-*.*.*-*.*-*-* 
*FETCH FINDNANS * 
•TO LOCATE NAMES* 
* IN DEBUG FILE * 
•**••**•*•****•** 



.♦ *. 
.*DNEND <ANY *. ON 
. DISASTER) .* 



.* 
*• .* 
♦OFF 



* SET DTABOX ON * 



ENTRY IN 
QaM<!»MS.&ND 



BTOQK 



«****G5******«** 
* 

* PUT DYNAMTAB 

* POINfra IN 

* PCONTROL 



****H5* ******** 

* RETURN TO * 

* ILBDHPIO * 
» 4 

•••••*••****•** 



• STORE NAIffi IN * 
*QUALNAN8 ENTRY • 



V JXOlAl 

•••••KK********** 

•REAOIPT • 



* B« * 
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Chart JN. FINDNAMS (ILB0MP13) 



• ZLB0HP13 • 



riNDMAMS— 

ENTER FROM ILBDMP12 
WHEN LAST LIME 
CONTROL CARD IS 
PROCESSED 



•****B1********** 



3_- V 



H0RET060 

• * 

• POINT TO NEXT • 
*QUALMAMS ENTRY • 

• • 



« JI01A2 

*ILBDMP01/02 • 

♦ POINT TO 1ST ♦ 
*OATATAB BLOCK, • 

* READ * 



C2 



.*. 



*, 



*. NO 

.END OF TABLE .* 

*. .* 

*• .* 

• YES 



► C3 • 

► ♦__, 
*••* V 

• •• 
^C3 ♦.^ 

.•'is entry '*. YES 
». ALREADY FOUND.* 

'♦. .** 
*. .* 

•NO 



•••••D3**^*^^^*^^ 



*••*••*•*••*•*•*• 



...• ^ 

• ••••Bll^*^*^^^^^ 
•POINT TO FIRST 

• ENTRY OR 



FILLDY .*. 

C« •• 

.•is DYNAMTAi^. YES 

•.ENTRY FOR ALL.^ 

• . .• 
•. .• 
*. .• 
• NO 



ISQFOUND .•. 

D« •. 

.•'oualnams '•. no 
•. bBtry found .• 

• . .• 



•&•*•*••*• 



• POINT to next • 
->^DYNAMTAB ENTRY *<- 






F2 



*. 



• . 



YES .* LAST 
. •.DATATAB BLOCK. 

I ♦• •♦ 
V •. ,• 

•*** •. .* 

► • ♦NO 

► B« • 



*•** 



V JI01A2 
••«**(32***» ••*•*• 
•ILBDMPOl/02 • 
•-•-»-•-•-*.•-*-• 

* READ NEXT * 

* DATATAB BLOCK * 

* • 



•POINT TO FIRST • 
•QUALNAMS ENTRY •<- 



► C3 * 

t 4 

*••• 



.•. 

E4 •. 
• • *. 
.• IS THERE •. YE 

^•?*wir^^*~ 



• ADD EN 



lY TO • 



lAVING 
INTRY 



•••**••*•*••••••• 



G3 ♦. 

.♦ •. 
.* DOES IT *. NO 

♦.MATCH DATATAB.* ^ 

».. ..♦ 1 



♦•♦♦ 

♦ ♦ 

♦ B2 ♦ 

♦ ♦ 

• ••• 



•ERROR 

♦-*-*.♦-♦-♦.•-♦- 



ENTER DATATAB 



♦ MARK DYNAflTAB ♦ 
♦ENTRY AS, liRROtt* 



♦♦♦•fl3^^^^^^^^* 



• POINT TO II 
•QUALNAMS EN 



V 

• •• 
J3 ♦. 



.•• 

J« •. 



NO 



— IN Entry. •—I 

♦. ••'* V 

*. .• •••• 

•YES ♦ • 
♦ B2 ♦ 



•••• 



•••«*K3^^^^^*^*^^ 
•HARK IDENTZPIER^ 
•FOUND, STOiE IN^ 
•ENTPY BLOCK ID • 
• i . 'SPL. • 



:***ffi;r**: 



♦**• 
->♦ - * 

• B2 • 
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ENTER rL... 
ILBOMPlg AFTER 
II.BDMP13 SWITCH 



*8ET pIDE ROOM • 
♦TO READ IT IN. ♦ 

• STORE ADDRESS *<- 

* IN PCOHTROL * 



• GR PROCZNDX • 
♦ENTRY FOR 8E6I-* 
•NDX ENTER |AVED* 






« JI01A2 
*ILBDMP01/02 



9 JI01A2 
*IIADMP01/02 • 

* CORRI 

• pr'"' 



•****D2* ********* 

* SEARCH ENTJ— 

* DYNAMTAB FO^ 

* HATCH. STORl 



PRIORITY IN 
DYNAMTAB 



ORE * 



•SEARCH PROCTAB • 
BJOC^ FOR * 



*****E1********** 
• GET NEXT • 
*CAROINDX ENTBY 



£2 



*<- 



P 



KEO !< 
.♦ 



V 

.*. 

EO *. 

.♦ ♦. 

.* * 

>. MATCH FOUND 



'•its 



« JI01A2 
*«**«F2********** 
*ILBDHP01/02 * 
*-*>•-*-*_*. *.•- * 
*POINT AND READ * 

* FIRST JEGINOX * 

* ENTOY * 
****••*•*****•**« 



••*«*Q2********** 

*SEARCH DYNAMTAB* 

* FOR PRIORITY/ * 

* FRAG MATCH. ♦ 

* SAVE SE6IN0X * 
*ENT IN DyNAM|AB* 



H2 



SEGINDX ENTRY * 
*(READ BLOCK IF *<- 



.* *. 

NO .* LAST _ ♦. 

*. SEGINDX ENTRY.* 

•.LOOKED A|.* 

'*• .** 

*YE8 



*DYNS6¥iJ'l§iRY 



B4 



• . 



.• *. 

.• PROCESSED •. YES 

"•if^«'E8?gr^ — 
•. .* 
•. .• 

•NO 



*****GS* ****•••* 
•ERROR 

* 

• MESSAGE 151 



JJ01J2 
RET 

••**HS* •***•••* 

* RiraRN TO * 

>* ILBDMPIO * 

• • 
•*•*••*•*•••••* 



► AH « 
» - • 

• ••* 
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-SYMCNTRL— 



imm 



ILBDD_.. 
FOR INlf OR 
DUMP <AB£ND OR 
DYNAMICT 



• ILBDHP20 



B2 *. 
.* *. 

,* FIRST CALL *. YES 

(FROM . .* 

*.ILBDMP10>.* 



• INITIALIZE 
->*COMMON FOR PASS 
« 2 



*. 



*N0 



INITIALI- 
. ZATION . 
*. .* 



.*FOR DYNAMIC*. YES 

DUMP .♦ 

*. .* 

• • .* 



•****E2* ********* 



So WflTCH) 



V JROlAl 

*****F2********** 
*ILBDMP21 * 
*-*-*-•.*-*-•-*-* 
* GET STORAGE. * 
*OPEN FILE, ETC.* 



V JW01A2 
****02*** ******" 
ILB0MP2S 

ISSUE STATE 
MESSAGE 



DUMPIT t JSOlAl 
•••**U2********** 
*ILBDMP22 * 

* DUMP DATA * 

* DIVISION * 



FETCH V JROlAl 
****«|]3******«*** 

*ILBDMP21 * 
•-*-*_*-•-•-*_•-* 

* OPEN FILE. * 

* INITIALIZE * 

* STORAGE * 
*•***•**•****•••* 



P .*. 

J2 *. 

.* * 

.* I/O ERROl 

*.ON DEBUG f! 

*. 



*****J3* **•••**** 



JAOlAl 



RETui 
ItSOl 



lODBOO * 

•**•**••***•••• 
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» * 

> HEXDUHP • 



IbNTER PROM 
ILBDMP23 OR 
I II.BDMP2>t 



**•* 


I******* 


• * 




* B2 • 




• ♦-> 








NEMLIHE '1 


4i«***B2********** 


• • 


* SET NEXTSAHE * 

• OFF • 


• » 


• • 



• C2 ♦ 



C2 ♦. 
,* *, 

YES .*I8 ADDRESS *. 

*.T0 BE PRINTED.* 

♦ . .♦ 

*. .* 
♦ . .♦ 
♦NO 

• *** 



*PUT ADDRESS IN 

• REGISTER FOR 

* CONVERSION 



» B3 < 

• **« 



* S£T HALF- LINE 

* COUNTER TO 3 

* WORDS 



* D2 ♦ 

* *. 
• ••* 

$****{>2* ********* 
*PUT a BYTES OF * 
*VIRTUAL STORAGE* 

* AT ADDRESS IN * 

* REGISTER FOR * 

* CONVERSION * 



LINELOOP .*. 

E2 *. 
.* *. 
NO .* ROOM IN < 

*. BUFFER FOR 8 

*. WORDS .« 



* SET HALF>LINE 

* COUtlTER TO U 

* WORDS 

* 



G2 *. 

.*AMOUNT *. 

.♦TO DUMP > 1*. 

.LINE AND NOT . 

*. AT FULL .* 

*..WORD .* 



••***H2********** 

♦ UP BUFFER * 

* POINTER TO * 

♦ ALIGN AND * > 

* ADJUST BYTES- * 
* IN- WORD COUNTER* 



»*B3********** 



♦CONVERT A HALF 



*<— , ,— >♦ 



•**♦***♦♦♦♦♦♦ 



♦♦♦♦••*♦ 



» B3 < 

» 4 

• ♦♦♦ 



C3 ♦. 

.* * 
* DONE 2 
HALF-BYTES 



♦ . 
, ♦ 



*DECREMENT BYTES* 

* TODUMP. * 

* INCREMENT * 

* ADDRESS * 



.* BYTES LEFT *. YES 
*. TO DUMP-0 .*- i 



DUMPING * 


NO 


ADIffiESS 


--1 


^ITSELF,.* 


*. .* 


♦ ♦♦♦ 


♦YES 


• ♦ 




♦ Ett * 




♦ ♦ 




*•♦♦ 


. ♦. 




Ctt ♦. 




♦ ♦. 




♦ 


. OFF 


NEXTSAME 


■n 


♦ . .♦ 


*. .* 


♦♦♦♦ 


>ON 


♦ ♦ 






♦ D2 ♦ 






* • 






• •♦♦ 



♦ ****Q|(******««** 



♦ ♦♦♦ 
» 4 
* BO • 



[NTOMP . 

♦♦♦♦♦Ett^^*^^^^^^ 

♦ILBDDBGl 

*-♦.•-*-♦-*-♦-♦- 



< — *. DONE. A WORD 
*• •* 

*. .* 



• ♦♦♦ 

♦ ♦ 

♦ FU * 

♦ *-> 

♦ ♦♦♦ 
ISITAU. . * 

F« 

.♦BYTES 
*. TO DUl 

*. 



YES 



HEXOUT 

* 
>♦ RETURN 



♦♦♦♦♦G3^^******** 


Gtt *. 






♦ * 


.* * 






*SPACE IN PRINT * 
* BUFFER * 


*:*''g?§E'g|gT** 


:..».j 


♦ ♦ 


♦ . 




♦ ♦ 


♦ . .♦ 






♦. .♦ 




• •♦♦ 






♦YES 




♦ ♦ 

♦ B2 • 

♦ ♦ 
♦ ♦♦♦ 


. 




' ' 






.*. 








H3 


♦ , 


HM *. 







.* NEXT LINE *. NO 
♦ .SAME AS LAST 



«,...-j 



♦♦♦♦ 

* ♦ 

* B2 * 

* • 
♦ ♦♦♦ 



♦SPACE IN BUFFER* 



.♦ >*8ET NEXTSAME OH^ 



.."''*•♦. 

MO .♦DONE WHOLE ♦. 

L ♦. LINE 

♦ . .♦ 

♦ . .♦ 



• ♦♦♦ 

->• « * 

♦ C2 ♦ 



♦YES 

♦♦♦♦ 



♦ ADDRESS. ♦ 
♦DECREMENT BYTES^ 
♦iJfT by a LINE ♦ 

• ♦ 

L 



> EU « 
» 4 

♦ ♦♦♦ 



♦ ♦♦♦ 

♦ ♦ 

♦ F<» ♦ 

♦ ♦ 

♦ ♦♦♦ 



Section 2: Program Organization 1«»7 



Licensed Material - Property of IBM 



Chart JR. SEGINIT (ILBDMP21) 



t ZLB0KP21 « 



SEGINIT 

ENTER FROM 
ILBDMP20 FOR I 
OR ABEND 



.* *. YES 

►. FIRST TIME .♦ 



.* *. 
.* ANY *. YES 

->♦. DYNAMTAB IN .♦ 

♦. RON •• 
*. .* 
♦ • .♦ 
•NO 



••********•**•••* 



• ••• 

* * 

• Bit * 

• *** V 
GETSPACE .*. 

B4 *. 

*. DYNAMTAB .* 
*. .* 

*. .* 
*N0 



♦ C« ♦ 



* FIND PCONTROL * 

* FOR THIS • 

* PROGRAM • 



* 'BOMB' *. NO 
SWITCH OFF .• 



'♦YES 



El 



.* IS THIS *. ) 
*.SAME PJiOaRAN .*- 
*. lis LAST .* 



NO .* IS ENTRY *. 

* . MESSAGE . * 

•. WANTED .* 



V JBOlAl 
*****G1********** 
•ILBODBGl * 

• PRINT ENTRY ♦ 

• MESSAGE • 



•****D2********** 

* • 

->*PCONTROL TABLE *- 

* * 



JP01G2 

••**E2********* 



F2 
.* *. 
.* *• 

->*.SAMS SEGMENT .< 
• • .♦ 



****G2********** 

* 
SAVE PRIORITY * 



CLEANIT ,.♦. 

D3 *. 

.•* DOES IT '•. MO 

>*.HAVE OYMAMTAB.* 

*. .* 
*. .* 
*. .* 
*YES 



RESTORE . T 



•-> 



•SEARCH FOR ROOM' 

• FOR OTHER 

• MODUUES 

• 
*•••••••••••••*• 



• PROGSUM 



*•*• 

* • 

* B5 ♦ 

*••* I 
INITDYN , V 

* • 

* GET FIRST • 
•OYMAMTAB ENTRY • 

* • 

* • 
*•••••**••**••••• 



NO .• IS IT FOR •. 
f •.THIS PRIORITY. • 



*••• 
» « 

» H5 « 

* 4 

• •*• 






Fit 



• . 



ftBQU! 

». .♦' 

♦ . .• 
•YES 



••••G3^^*^*^^^^ 



=JiS!?i' 



RAM 



->• • 

♦ B5 ♦ 



• * 
•STORE CRITICAL • 

->• ADDRESSES IN • 

• COMMON * 



•••••H3^^^*^*^*^^ 

•DUMP PROCEDURE • 
• 0IVI8Z0N * 




NOPOQHP .*. 

J3 •• 



JP01G2 

••••Kl ••••*•••• 
RETURN TO • 
ILBDMP20 • 
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•••••X3********** 

• * 

•PCONTROpniBLE • 



.*HBST OPEN •. 

. rm FILE .* 

• . •• 

• . .• 

*. •• 

•YES 



• ••••Glt^^^^*^^^^^ 

• • 

• RELOCATE * 

• ADDRESSES IN * 

• pcoNnioi. * 

• * 
••••*•••*•*•••••• 



7 
.•. 

RV •. 



NO 



.• 



<->*.ANY OBODOTAB .* 
*. •• 
• . .• 
*. .• 
•YES 



D5 •. 

'instrSc- '•. 

TlOt] BEEN 
. STORED .• 



: ft§ifeipiN : 

•DYNAMTAB ENTRY • 

• • 

*•**•••••••*•••** 



WILLFIND ir 

•••••fS^ ••••••••• 

•GET INSTRUCTION^ 

• FROM VIRTUAL • 

• STORAGE AND • 

• SAVE IN • 

• DYNAMTAB • 
••••••••••••••••• 



UNIQUE . V 

•REPLACE 2 BYTES^ 

• IN VIRTUAL • 

— >• STORAGE BY BALR^ 



• ••• 
k « 
► H5 • 



• ••• 
ISITLAST 

• GET NEXT 
•DYNAMTAB ENTRY 



•*•*•*••••••••• 



•••• 
» « 

> B« « 

> « 

• ••• 



(»X»ONE .•. 

XK •. 
• • *. 
.•BOMB SWITCH^. NO 

— >•. OFF .• 

• . •• 
• . .• 
• . •• 
•YES 
I •••• 



.* •.NO 

•.END OF TABLE .• 

• • •• 



,*YES 



_ JP01G2 
RET , V 



••*•••••••••«•• 



->• 



B5 « 

t 4 

• ••• 



Chart JS. DMPCNTRL (ILBDMP22) 



IIADHP22 



iio''!!SlDMP25 



.*BOHB SWITCH*. XE8 

> . ON . • 

*. •* 



• *** 
* B2 

^i**«B2********* 



••-J 



*****ci********* 

• : 

•Slttlflf'PSIL. 

* AND ADDREI 



mw'. 



STORE RETRY 
ADDR. IN 
IIAODB60 



•••••Fl********* 



Gl 



*, 



.•DO COUNTERS*. YES 
>. PERMIT DUMP .* — > 

**. .** 
*. .* 

*N0 



*****H1********* 



* MARX ENTRY TO 

* BE SKIPPED 



.*. 

Jl *. 

.* *. 

.* |;nd OP *. 

- TAB 

.* 
.• 



■*4e8 



*****K].********** 



• *•* 
->* * 

* P« • 



•02** 
ILBDMP2* 

-•-*-*_*-*-*-*-i 



****D2********* 
SET HANTTGT OFF 



•****E2********* 

* SET REQUEST 
*LXMZT8^T START 

* AND END OF 

* DATATAB 



, V JIQ1A2 
*****F2* •••*•**•• 
•ILBDMP01/Q2 * 
*-«-*-*.*-*-*.*.• 
*POINT TO START * 
•BLOCK AND REAO * 



V iivmx 
•****62********** 
*NXTENTRY * 

•-*-*-*.•.•-*.•-• 



H2****. 

.*■ LEVEL- '*. NO 

*. DESCRIPTION .• 

*. .* 

*. .* 
*. .* 
*YE8 



JUQ1A2 
••***J2********** 
*ILBDMP23 * 
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• • 

• BO * 

• ♦—! 
*••* V 

.*. 

Btt *. 

.* *. 

.* * 

*. ALLSM 

*♦. ••* 



STEPID . *. 

C* *. 

.♦ ANY i 

MORE 

. ilr . 

•.ENTRY.* 
"♦NO 



RET 



JP01J2 

••••BS********* 

* RETURN TO * 

* II.BDHP20 * 

•••*•***•••*••• 



•••••CS* •*****•*• 

• * 

POINT TO NEXT 



•••••Ott*^***^**** 



* GET NEXT * 
*DYNAMXAB ENTRY * 



****E3********* 



..""'*'*•*. 
YES .* *. 

*.BND OF TABLE . 

*. .* 

*. .* 
*. .* 
•NO 




****a3********* 

• CALL01D2 * 



V JV01A2 

••••J3^********* 
XLBDMP21 * 

.•-•-*-*-•-*_•-• 



«••* I 
* F» • 



.•is ENTRY t6*. YES 

•. B£ SKIPPED .• 

*. .* 

*. .* 
*. .* 
*N0 



V JBOlAl 

•••••ou**** ••**•• 
•ILBODBGl • 
•.•.•-•.•-*-•-*-• 

• PRINT CARD • 

• nGMBER OF * 

• REQUEST * 
•••••••^••••••••^ 



• ••• 

• • 

• B2 * 

• • 

• ••• 



L 



••••*ja**«^*«***^ 

* USE TABLE * 
•LOCATORS TO SET* 

-* LIMITS OP • 

* REQUEST * 

* • 
•*•••••*••••**•*• 
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chart JT. NXTENTRY (ILBDMP22) 



» NXTENTRX < 

» 4 



ENTER PROM ILBDMP22 

fgiDiS!rASS^?i ' 

FOR SUBSEQUENl 



T ITEMS 



.* 
. .* 
• YES 



*****C1* ********* 

* • 

* * 
*SET ENDENTRY ON* 

* * 

* * 
•**•****•**••**** 



*SET ENOLEVEL - * 

* LEVEL OF LAST * 
*ITEH (0, IF FD,* 

♦ SD, RD) * 






•••**£!• ********* 

* UP DATATA6 * 
*P01NTER TO NEXT* 

* ENTRY • 

* • 
***************** 



.* *. NO 

*.ENO OF BLOCK .* — > 
*. •* 



V JZ01A2 
*****(;X**** ****** 
*ILBDMP01/02 * 
•.*-*-*-*-*-*_•-* 



*REAO NEXT, NOTE* 

* * 

***************** 



*****H1********** 



*8TORE BLOCK-ID * 
• IN THIS ENTRY * 



V 

.*. 

Jl *. 

.* *. 

.* *. V 

.IS IT PROCTAB.*- 
*. .* 



****X1********* 
► RETURN TO * 

• ILBDMP22 7nOT * 

* TO CALLER) * 
*************** 
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SETDISP 

*****B2********** 

* * 
*STORE DISPL IN * 

>* BLOCK IN THIS * 

* ENTRY * 

* * 
***************** 



***************** 



.*°2'''***. 
NO .* DOES *. 

*. PROGRAM HAVE . 

♦. ODO .* 



YES .*is ITEM AM *. 
< — *. INDEX OR .* 
*. RENAMES .* 
*. .* 
*• .* 
*N0 



F2 



*. 



.* LEVEL *. YES 

*. DESCRIPTION .* 

♦ . .♦ 
•• .♦ 
*. .* 
*N0 



•**««Q2********** 

:«s^t?PeOs-: 



NXTEXIT V 

****H2******* 

* RETURN TO 

* CALLER 



*****B3****«***** 

* count|r of 3, * 
>>* pointers to * 

*into about 1st * 

* (X)0 * 



**** 
» « 
• C3 * 

» 4 

• *** 



.*DATATAB*. 
ENT HAVE *. NO 



,* 

■ .* 
*YES 



V 

.*. 
D3 *. 



****Cit********* 



LEV< .* LEVELi *. LEV> 

-*.CORRESPONDIN .* 

*.G ODOLBV .* 



.♦. 

B3 *. 
.* *. 
.* DOES IT *. NO 



**************** 



•****63********** 
* COMPUTE AMD * 
*STORE »B&U OF * 






•****H3********** 



.." *•* 

DONE 3 

'*. .♦ 
*. .* 

*YBS 



• *** 
» « 

► C3 • 

» « 
***• 



• ••••Xil********* 



.*. 
K3 *. 

.* LEVEL *. 
.*GT LEVEL OF*. NO * SET KASTLBV- 

*. LAST ODO .*- — ~ >* X^F'^ 

*. MASTER .* * 

*. .* * 

*. .* ****••*•*•*•**« 

*YES 



HXTEXZT 

****xs********* 

* RETURN 10 < 
>* CALLER * 
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Chart JU- DUMPl (ILBDMP23) 



OUMPl 

ENTER FROM 
ILBDMP22 OR 

ilbohpSC 



ILBOHP23 



=«*?»I5a3 .♦. 

* cohtrols the • 

* nuhIer OF • 
— >*OCCURRENCES TO • 

* DUMP • 



» « 

•••• 



• ••* 

» 4 

> B2 * 



•***B1 ********* 
» RETURN * 



B2 *. 
.* *• 
HO .* *• 

*.A DUMPl ENTRY.* 

*. .* 

*. •* 

*. .* 

*yBS 



*MOVE 
* CARD' 
*CODE 



TO BUFFER 



*WITM AODR IN R«* 



V 

.*• 
E2 *. 
.* *• 
.*AN OCCURXNG*. YES 

ITEM .* 

*. .* 

*. •* 
*. • .* 
«N0 



•DETERMINE TYPE * 
*0F DATA TO DUMP*<- 



* HOVE ADMt OF 
*DATA TO BUFFER 



»B3« 



.♦. 

C3 *. 

.* *• 



CALLOBGl if JBOlAl 
• ****B(t********** 
*ILBDDBG1 * 



* PRINT BUFFER * 

• • 
••****•*****•**** 



.* 



CIt 



*. AH ODO ITEM 



TEM^.* 1 



*•** 

• • 

• r3 * 

• • 
•*** 



*.HEX REQUESTED.* >• 

*. .* 

*. •* 

*. .* 

*N0 



HEXRTN JQ01A2 

*«***CS********** 

VE8 :2eHS!*...*.*.: 



*VAI.OE OF 



*:*fel«IP^*:*!J2. 
*. .* 
*. .* 
*. .* 

•YES 
**** I 

♦ F3 ♦ 

• •*• V 



.*' AN **. YES 

*. OCCURRING .* 



ITEM 
*. .* 
*. .* 
*N0 



• *** 

» « 
» F3 * 

t « 

• •** 



.*. 
F3 *. 

.* *. 



•62* 



* 5AVE AODR AHD 



KLL *. YES 

*. SUBSCRIPTS .* 

*.FIHI8R|d .* 



DICTXQl 



». .♦ 

. .* 
•HO 



*«***G3*******^^ 
* MOVE CURRENT 



*. 



**** 

« • 

* B2 * 

• • 
**** 



«***6tt********* 



NO .* A RENAMED *. 

*. ITEM 

*. .* 



**«**J2********* 



'!lbii8i>i" 



L 



Section 2s Program Organization 151 



Licensed Material - Property of IBM 



Chart JV. 0UMP2 (ILBDMP2U) 



-""BuMP2--- 


wm^ 



•***A2********* 

» 4 

• ILB0MP2« * 



.*. 

B2 *. 
.* * 

WANT T6T 



OUMPSD JBOlAl 

•****B5********** 
•ILB0DB61 * 



: f g'?.;?^!^!!! 



•MOVE FIELD NAME* 
.->• TO BUFFER • 



^VJLJM, 



>**E2********* 

:S5G*g^8Pfi^ 



••***r2**«**9**** 

•HEXPUMP^ ^ ♦ 



H^XgU 



* DtlHP ZN HEX * 



END OF TGT 

>. . 

*. .* 



CNoix-NAME 

'♦. ••* 

*. .* 

*yEs 



***«*03**«****** 



GET ADDRESS 
FROM TOT 






• PRINT LINE 



NO 

C« '•• 

.* * 

IS IT FD 



* OET LOGICAL 
*_OHIT NUMBER. 
•ETC. IN BUFFER 



••***E3********* 



•CONVER' 

: ^'^uFi 



J^JSS? 



'3i.«*E««^**^ssm 

• * 

* PRINT LINE * 



JBOlAl 
•****F3********** 

* PRINT LINE • 



iV§§F 



•****G«****« 
*HSXDtmP 



•DUMP DTF IN HEX* 



I8ITALL V JTOlAl 

*****H3********** 
*NXTENTRy • 

* DA^ABBNTRY * " 



V 

.*. 
C5 *. 



— *. IS IT RD .* 



DUMPRD .*. 

DS *. 

.•'is there **. NO 

*. LINE-COUNTER .* 

*. .* 

*. .* 

*. .* 
*YES 



•••••E5^^^^^^*** 



. V JBOlAl 

•ILBDDB61 • 

•-•-•.•-•-•-•-•-* 

* • 

• PRINT LINE * 






.•. 
J3 *. 

:*"DSip|g "•.*—. 
*. .* 

*. .• 
•. .• 



RET 



• RETORN TO 
_>* ILB5mP22 



65 •. 

.• *. 

NO .*I8 THERE A *. 

<— •.PAGE-COUNTER . 

*. .* 

*. .* 



• • 
•'PAGE COUNTER' 

• AND VA£UE TO 



.*• 

K3 *. 
.*ZS ITEM*. 
.* LfyEIc *. YES 

>. DESCRIPTION .* 

*. .* 

*. .• 



JU01A2 
••••R4********* 



PRINT . « JBOlAl 

••***J5********** 
•ILBDDBGl * 



* PRINT LINE 
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SECTION 2; PROGRAM ORGANIZATION 



This section Is divided into two parts: Flowcharts are provided for most of the 

"Diagrams" and "Flowcharts". The diagrams data manageirent subroutines, all of the 

describe the flow of control, loading and subroutines for object-time debugging 

calling dependencies, and virtual storage operations, and for other complex 

layouts in instances where several programs subroutines, 
are present together in virtual storage. 
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DIAGRAMS 
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COBOL OBJECT PROGRAM 



ILBDSRTO SUBROUTINE 



SORT/MERGE PROGRAM 



%f 



SORT STATEMENT 



I ♦. 



INITIALIZE SORT 
PARAMETERS 



■■/I 



LINK SORT/MERGE -i^-i 



B ILBDSRTO 






INITIALIZE PERFORM 
OF INPUT PROCEDURE 



INPUT PROCEDURE 



r: 

RELEASE 
EXIT 



^ 



^ 



RESET PERFORM OF 
INPUT PROCEDURE 



INPUT PROC LINKAGE 



:l \>^ 



INITIALIZE PERFORM 
OF OUTPUT PROCEDURE 



r 



OUTPUT PROCEDURE 
RETURN 

L:-- 

EXIT 



u 



RESET PERFORM OF 
OUTPUT PROCEDURE 






OUTPUT PROC LINKAGE 



EXIT 









1^» 



'* 

u' 

=;?■# 



% 



IT 









"t 



PHASE 1 



E15 EXIT 






?«S| — 



PHASE 2 



PHASE 3 



E35 EXIT 






L«o«nd: 

Broken Una arrowi tndlcot* logic pothi axvcuMd only once; tolld Itn* arrowi rtprtMnt logic pothi In loopi. 



Diagram !• ILBDSRTO Logic Flow For SORT 
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COBOL OBJECT PROGRAM 

• '-^■'■'■''-■^'■^{Jii 

MERGE STATEMENT j- f 

USING . . . OUTPUT " ' 

PROCEDURE 



ILBOSRTO SUBROUTINE 



SORT/MERGE PROGRAM 




L*g«nd; 

Broken line arrows Indicate logic paths executed only once; solid line arrows represent logic paths In loops. 



Diagram 2- ILBDSRTO and ILBDMRGO Logic Flow For MERGE 
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TEST 



Link adltad 

with 

COBOL 

praflrom 



PERMANENT MAIN STORAGE 

A 



SYMINIT 



Leodad 
during 
INIT3 



SYMCNTRL 



whan 

pfecMtlnp 
It eoinpl«l«d 
for 

InltlollM- 
tlon 



MedulM which II* In Mm Mm* vartieol 
pettllen In lh« diagram overlay on* 
anethor In main iloraga, weopt that 
in th« "VarloUa Main Storogo" portion 
of Iho diagram tho tai 1 modulw occupy 
•poco at Iho ond of tho partition, whIU 
ttw Pom 2 modulo* oro loodod whorovor 
tpaco Itovollobl*. 

A lino from ono modulo to another In- 
dlcolw that lh« modulo obevo or at (ho 
loft loodi Iho modulo bolow or at tho right. 



"> r 



VARIABLE MAIN STORAGE 
K 



SCANP 



SE6INIT 



during 

InlHollio- 

tlon 



SYMSTATE 



whon dump 
It at 

ODnoffmoi 
tomd notion 



DMPCNTRL 



fordyiHWile 



torminatlon 



numbors 



■^^ 




iODISK 



Leaded 
(or debug 
file on 
dlik 



KJTAPE 



Loodod 
for debug 
file on 
lope 



KPASS1 



IODISK 




Loodod 
when 
debug 
file on 
dl*k 



lOTAPE 



when 
debug 
file on 



y PASS 2 



Diagram 3. SYMDMP Subroutines: Loading Dependencies 
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ill ![| I } 

VA lUi 



Diagrain a. Debug and Execution Statistics Subroutines: Flow of Control at 
Initialization 
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ty=xx=x> 






7X 



if 



III! '-' ^ 

ii 



lii 



I 



Diagram 5« Debug and Execution Statistics Subroutines: Flow of control at Abnormal 
Termination 
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Routine: ILBDDBGO — Level 1 
ROUTINE I PURPOSE 



ILBDDBGO 



Service 3 options for handling 
debugging information and the 
COUNT option for providing 
object-time execution statis- 
tics. 



Diagram 6. Debug and Execution statistics 
4) 



I CALLED ROUTINES {CALLING CONDITION 

SYMINIT {Called when SYMDMP option 
(ILBDMPIO) I switch is on in TGT. 



SYMCNTRL j Called when SYMDMP option 
(ILBDMP20) I switch is on in TGT every 
time after the first. 

ILBDFLWO j Called if FLOW option is 
specified. 

ILBDSTNO I Called if STATE option is 
specified. 

ILBDTCOO I Called if COUNT option is 
specified (see "Object- 
Time Execution statistics 
Subroutines") . 

ILBDTC20 (Called in all cases. 

X-. 

Subroutines: calling Dependencies (Part 1 of 
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Routine : 
ROUTINE 



^ 

SYMCNTRL 
(ILBDMP20) 



SYMINIT 
(ILBDMPIO) 



ILBDDBGO — Level 2 

I PURPOSE I CALLED ROUTINES (CALLING CONDITION 

Called if program- control 
card is found. 



ILBDSTNO 



ILBDTCOO 



control routine and ccMninon sub- 
routines for processing control 
cards in SYMDMP option. 



Control routine for SYMDMP 
output. 



FINDLOCS {Called if valid line- 
(ILBIMPIU) {control cards entered in 
DYNAMTAB. 

SEGINIT (Called each tine a program 
(ILBDMP21) (or segment is entered and 
at abnormal termination. 



SYMSTATE 
(ILBDMP25) 



DMPCNTRL 
(ILBDMP22) 

ILBDFLWO (Produce flov« trace if FLOW 
is specified. 






Write statement number if STATE 
is specified message at abnormal 
termination. 

Initialize COUNT statistics if 
COUNT specified. 

ILBDTC30 



SCANP 
(ILBDMPll) 

SCAND 
(ILBDMP12) 

FINDNAMS 
(ILBDMP13) 



Calls no further 
routines. 



Calls no further 
routines. 



Calls no further 
routines. 



Called if line control 
card is found. 

Called if valid line- 
control cards entered in 
DYNAMTAB. 



Called at abnormal termi- 
nation to produce a state- 
ment number message. 

Called whenever a dump is 
to be produced. 









Called if COUNT specified. 



ILBDTC20 ^Produce COUNT Statistics if 
(COUNT specified 

Diagram 6. Debug and Execution Statistics Subrotines : Calling Dependencies (Part 2 of 
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Routine: ILBDDBGO — Level 3 



■T T 

I CALLED ROUTINES | CALLING CONDITION 



ROUTINE 



I PURPOSE 



SCAND 
(ILBDMPll) 



SCAND 
(ILBDMP12) 



Processes prograin control cards. 



Processes line control cards. 



Calls no further 
routines. 



lODISK 
(ILBDMPOl) 

lOTAPE 
(ILBDMP02) 



Called when Debug File is 
on disk. 

Called when Debug File is 
on tape. 



FINDNAMS 
{ILBDMP13) 



Searches Debug File for identi- 
fiers requested on line control 
cards; enters locators for them 
in DYNAMTAB. 



lODISK 
(ILBDMPOl) 

lOTAPE 
(ILBDMP02) 



Debug File on disk. 



Debug File on tape. 



FINDLOCS 
(ILBDMPia) 



Searches Debug File for card 
number information; enters it in 
DYNAMTAB. 



lODISK 
(ILBDMPOl) 

lOTAPE 
(ILBDMP02) 



Debug File on disk. 



Debug File on tape. 



SEGINIT 
(ILBDMP21) 



--+ 



Initializes program segment for 
dynamic dumping by modifying 
specified instructions; allo- 
cates space; relocates table 
addresses; opens debug file. 



lODISK 
(ILBDMPOl) 

lOTAPE 
(ILBDMP02) 



Debug File on disk. 



Debug File on tape. 



SYMSTATE 
(ILBDMP25) 



Issues the abnormal termination 
statement number message. 



lODISK 
(ILBDMPOl) 

lOTAPE 
(ILBDMP02) 



DMPCNTRL 
(ILBDMP22) 



Contains main loop controlling 
d\imp. 



DUMPl 
(ILBDMP23) 



DUMP2 
(ILBDMP2U) 



lODISK 
(ILBDMPOl) 

lOTAPE 
(ILBDMP02) 



Debug File on disk. 



Debug File on tape. 

Called when group or 
elementary items are to be 
dumped. 

Called when iteir to be 
dumped is neither group 
nor elementary. 

Debug File on disk. 



Debug File on tape. 



ILBDTC30 



Print the COUNT statistics. 



Calls no further 
routines. 



Diagram 6- Debug and Execution Statistics Subroutines: Calling Dependencies (Part 3 of 
4) 
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j Routine: ILBDDBGO — Level U 
1-— 



IDUMPl {Dumps elementary and group 
(ILBDMP23)] level items 



i lODISK 
(ILBDMPOl) 

lOTAPE 
(ILBDMP02) 



j Debug File on disk. 

I 

I 

{Debug File on tape. 



Y + 

(DUMP2 {Dumps item vihich are neither 
{ILBDMP2U) {elementary or group level 
I ( items. 



JIODISK 

{ (ILBDMPOl) 

{ 

j lOTAPE 

I (ILBDMP02) 



(Debug File on disk. 



{Debug File on tape. 









ILBDDBGO ~ Level 5 



( Routine: 
h 

{lODISK {Performs input/output operations {Calls ILBDMPOU 
( (ILBDMPOl) (for debug file on disk. (before each 
{ { (open. 






{ lOTAPE (Performs input/output operations (Calls no further ( 
{ (ILEDMP02) ( f or debug file on tape. (routines. ( 

(SRCHPUBS (Performs initialization of (Calls no further (Called by lODISK for each 
{ (ILBDMP04) JSYS005 DTF for disk debug file, (routines. (open. 

Diagram 6. Debug and Execution Statisitics subroutines: Calling Dependencies (Part U 
of *♦) 
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MINIMUM 
SYMDMP 



SYMDMP LOAD POINT 


PMll 






Pbu2 




Cemmen Data ArM 


SYMINIT 
(ILBDMP10) 


SYMCNTRL 
(ILeOMP20) 


SEGINIT 
(ILB0MP21) 


DMPCNTRL 
(ILBOMP22) 


SYAASTATE 
(ILBOMP25) 


SCANP 
(ILBOMPII) 


QUALNAMS 
tobla 








Obi«c» tlm« toblM 


- vorlabl* langlti 







Ltngth unknown during 
Pbu 1 



End of tabiM known oftar Pom 1 




DUMP] 
(ILBDMP23) 


0UMF2 
(H.BDMF23) 


' 


Dobufl f lla buffar 1 


lOTAPE 
(ILBDMP02) 


lOOiSK 
(ILBOMP01) 


Bu»«r 2 for top* 




krr«r 2 for dlik 



i 


I 


" ■ ^^-^ 


Slack - vorlobla langrti 




lOTAPE 
(ILBDMP02) 


lODISK 
(ILBOMP01) 


gS 


Dabug fll« buffer t 


1° 
22 


Dabug flU buffar 2 


»CANO 
(ILB0MP12) 


FINDNAMS 
(ILBDMP13) 


FINDLOCS 
(ILfiOMPU) 



END OF PARTITION 



Nola: If, In Pom 2, thora It tpoca for all Iha modulat and data araoi 

of Iha pan tNcapf a lacond dabug fila buffar, Iha buffar It omitlad. Routlnoi 

iODISK and lOTAPE (ILBDMP01 and ILBDMPQ2) uia a ilngla buffar In Ihli eata. 

In Iha eota of o dump for abnormal larmlnoHon only, at many at 
poMlbla of Iha Pan 2 modulat Ihol do not bolong lo Iha "minimum 
SYMDMP" group ora loodad, ovarlaylng Iha COBOL progrom't h'oeadura 
Dtvition . If Ihli main ilorega tpoca It nol lufflclant, Iha odditlonol 
modulat ora loadad oflar Iha objacHllma lablat. 



Diagram 7. Virtual Storage Layout of SYMDMP Modules 
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SYSIPT 



MAIN STORAGE 



SYS005 



>^ 



CONTROL 
CARDS 

— ^ 






OBJEa TIME 
TABLES 



\ 



\ 



"PROGRAM 1 
PCONTftOL, 



DYNAMTAB, 



DATADIR, 



OBODOTABv 



I PROGRAM 2- 
PCONTROI2 



DEBUG FILES 




PROGRAM 1 
-PROGSUM, 



OBODOTA»| 



DATATAB, 



PROCTAB. 



PROGRAMS 
PROGSUM2 



MAIN STORAGE 



TAPE or DISK FILE 



NOTE) 

Solid orrewt Indlcoto th« main polntan 

connactlng Iho tablM. 

Brekan oiram tndleol* th« primary 

MurcM of Information . 

Brakon llnM Indlcota Kw boundary bolwoon 

ftlM. 



Diagram 8 SYMDMP Subroutines: Control Card Processing. Relation Between object-Time 
Tables and Debug File in Processing Identifiers on Control Cards 
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Diagram 9- SYMDMP Subroutines: Control Card Processing. Identifier Processing 
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Diagram 10. SYMDMP Subroutines: Control Card Processing. Card Number Processing 
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r T 

I FIRST I-*- 

f 1 

j LAST I 



TGT 

highest 

level 

prograin* 



-I TGT 

j next highest 

I level 

j progreun 

I 



current 
prograin 






When SYMDMP, STATE, or FLOW has been requested, the TGT Address Routine (ILEDDBG3) is 
called by the COBOL program at each return of control to the prograin after a branch 
outside of itself. The routine stores in the fullword LAST the address of the current 
TGT. At abnormal termination this data area is used by the STXIT routine (ILBDDB62) to 
trace the calling programs of an interrupted program so that information may be 
provided for each of them. Tracing begins at the program whose TGT is stored in data 
area LAST; it ends at the program whose TGT is stored in data area FIRST. 



|*Compiled with the SYMDMP, STATE, or FLOW options. 

L 



H 



Diagram 11. Doubleword Data Area Used by the TGT Address (ILBDDBG3) and STXIT 
(ILBDDBG2) Routines of the Debug Control Subroutine 
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Diagram 12. Overall Processing for Producing Object-Time Execution statistics 
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Diagram 13. How Tables Are Used to Produce Object-Time Execution Statistics 
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FUNCTIONAL SYMBOLS 






•ENTRY, WAIT. OR* 
*TERNlfiAL BLOCK * 



**D1******* 



^"lOT 



PUT 



• SUBROUTINE 

* BLOCK 

* 
**************** 



*****61***«***** 



•**•*••**•*••*•* 



ON-PAQE 
CONNECTOR 



OFF-PASE 
CONNECTOR 



L 



>»02 « 
Al. 



****B3********* 
» * 

* HOURSRTN * 



B'^$SII**C3********* 

• UPDATE 



****62********* 
* RETURN « 



♦01 • 

♦ 83 •-> 

• • 

• •• 
E3 *. 

.* * 
,* 
-*. 
*. 



l8i«W»? 



K*gSSLEmiNE"S8Slo*« 

NO FLOWCHART OF IT IS PROVIDED. 



0N-PA6E ENTRY CONNECTOR. 
ONE OR MORE BRANCHES TO 
THIS BLOCK APPEAR ON THIS 
PAGE OPTHE FLOHCHART. 



OFF- PAGE ENTRY CONNECTOR. 
A BRANCH TO THIS BLOCK ^ . 
APPEARS ON ANOTHER PA6E(S) 
OF THIS FLOWCHART. 



*. 
.i 



QOTO 9 YkOlAl 

-****F3* ********* 
8UBNM 



INSTRUCTION AT 
. -A.SUBROUTINE 



CATION GOTO 
jiup SU8NH. 
tS SHOWN ON 



LINE JUNCTION 



ON- PAGE EXIT CONNECTOR. CONTROL 
BRANCHES TO BLOCK 03 ON THIS PAGL 
OF THE FLOWCHART. 



• ••• 

> 4 

» D3 « 

> « 

**** 



****H3******** 



OR PRO-AM THAT IS DOCUl 
IN SOME OTHER PUBLICATK 



J3 *. 



*. 






1 

• •*• 

'ill 



OFF- PAGE EXIT CONNECTOR. 
BRANCHES _fO BLOCK Al C 
OP THIS FLOWCHART. 



BLOCK Al ON PAGE 



V XX02A1 

****K3********* 



.. ^ TO AN ENTRY 

IIOTHER FLOWCHART. 

CK K3 SHOWS A BRANCH 

TO LOCATION TAXRTN THAT 
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Chart AA. Decimal to Binary (ZLBDCVBO) and Binary to Decimal (ILBDCVBl) 
(Part 1 of 3) 



• INtTIALIIE BME; 



CVBO) 

.:*jKl!l'sf!.£;*:.!SL__>:>IoH|lftgJ"' 



CVMOS .*. 

03 *• 

NO .•is TMCRL A**. 

. — (.licoNb mi.o^.*<--i 

V *•• ••* 

•••• •. .• 

•y£s 






•• t! 



• 0<l • I 

CVB02 „•••, 

NO .•'VMUci TO**. 

♦its 



miwi 



*COHTioC SWITCH * 



*tc*«a2*<******** 

.->:rS:^8ls«: 



>• • 

• DJ J 



SSIIiSf....... 



:!5(*S!l£Sf.......: 

• twlKit riEu • 



.- .He*: 

f RociSsbI. • 



bESIM. 



•••*H3********* 

• • 

• rbtmin • 



• 0* • 

.*. 

0« •. 

• * *• 

• * • 

• .^flRST rlEU)^ 

*(es 






CVB{}S 

• OifwM WORK •< — 



• AREA TO 



CHVRTBtM 






•••••05********* 

* DIBPj 

?co86J 



.*' BMMCH **. 
*. USIMO CODE . 
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Chart AA. Decimal to Binary (ZLBDCVBO) and Binary to Decimal (ILBDCVBl) 
(Part 2 of 3) 






"SK..^ 



•»> 






• Bl • 

""jIIIIm.? 



,:-S8Si."58*-:. 



MM V 

•••••Dl********* 

iM ualnsRs 



BINIO V 

- wove 



» METUm * 



• PIACUIN * 



ni.t 



• KrrUHN • 



••te 






■=?«. 



:;^!«ES^ ;;:.-„ >.:;;5,^|j|gg;:.- — >:viti;i imsi.: 






V 
***Kt********* 



(es 



•vSloI in uiftmK*— 



>• RnURN • 



••••All********** 



m 



i****AS*********^ 
ZNOIX roM • 



*•••••*•***••**• 



*•*•*••••••••••• 



"-nj**,* 

i"Mf i- 



"^«..c 



""m.ics.t 

: «*5i 
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lot V BINIOI V 

• •**«0]^^******** <****0M^' 
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SIGN • 

'"'"'Cl 



bINlOl V 
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""», 



""H.^.r 



ADJUST SIGN 



* MTURN * 
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Chart AA. Decimal to Binary (ZLBDCVBO) and Binary to Decimal (ILBDCVBl) 
(Part 3 of 3) 



• lUOCVBl 



CVBl . ♦ 



•SAVE R. 
•AND IN 
• BASE 



•.REOISTLR .• 



•GET VALUE FROM 
>• USTWRK 



PilOCESS rOR 



••••*D2********** 

:PL|snE?*fiPE,: 



• CONVERT TC 
•PACKED Dt'CIKAL 



y 

Ej' ■». 

••' *•• 

. HUHBER BINARY. 

'•iES 



••••*P2**«*««*** 

• SET VALUE fOi* 
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Chart CA. Sort/Merge (ILBDSRTO, ILBDMRGO) (Part 1 of 5) t 
Main Routine 
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Chart CA. Sort/Merge (ZLBDSRTO, ILBDMRGO) (Part 2 of 5) t E15R0UT Routine 
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Chart CA. Sort/Merge (ILBDSRTO, ILBDMRGO) (Part 3 of 5) i E35ROUT Routine 
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Chart CA. Sort/Merge (ILBDSRTO, ILBDi4RG0) (Part 4 of 5) t 
CHKPOINT Routine 
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4>4<4>*4<D44'4<4<4>«4'4>4i** 

♦ILBDCKPO ♦ 

4>_4>-4>— ♦-«-♦-♦-♦-* 

* * 

♦TAKE CHECKPOINT^ 
4< * 

iHlfiHHfif*^fti*tt****** 



« 4> « * 4i £ 4 4> 4< 4"t> 4"l> 4> 4> ♦ ♦ 

♦ * 

♦ RESTORE ♦ 

♦ SORT/MERGE ♦ 

♦ REGISTERS ♦ 

♦ * 
4t**************** 



****PH*** ****** 

♦ RETURN TO ♦ 

♦ SORT/MGE PGK ♦ 

♦ NEXT INSTR ♦ 



ENTER FROM Ell 
£21 OR £31 EXITS 
SORT/MERGE VIA 
BRANCH TABLES 
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Chart CA. Sort/Merge (ILBDSRTO, ILBDMRGO) (Part 5 of 5) i £32 Routine 



» • 

> ILBOMRGO « 
» « 

*************** 



ENTER FROM ILBOSRTO 

1. AT INITIALIZATION 

2. AT EXIT L32 OF SORT/MERGE 
PROGRAM VIA BRANCH 



* INITIALIZE OWN * 
->*SAVE AREA WITH ♦- 

* POINTERS * 

• # 



Dl *. 

.* •• 

.♦FIRST TIME ♦. IfES 

♦.TrfRU £32 EXIT.* 

♦. .♦ 

♦. .* 

*. . * 
•NO 



■***02*********** 



-> COBOL PGM- 

* OPEN USING 
PILES 



****£3 *•••*•••• 

* 4 
->• RETURN < 

• « 

TO ILBDSi<TO 



POINTERS! 

1. SD BUFFER ADDR 

2. COBOL USING EXIT ADDR 

3. NUMBER OF INPUT FILES 

a. ADDR OF PH3 BRANCH TABLE 
5. ADDR OF ERROR EXIT FOR VSAM 



INITFLS 

•****D3********** 

• SAVE DTF'S. • 

* BL's IN OWN • 
>* AREA IN ORDER •- 

•OF USING FILES * 



INITLOOP 

• SAVE TYPE OF • 

• DTF. RECORD • 
>»PORMAT. BUFFER •- 

• POINTER FOR • 

• EACH FILE • 
•••••••••••••*••• 



•INSERT EOF ADDR 
!.A TM rvpv'c 



•••**£2*^* **••••• 



.•lOf ON ALL *. YES 

*. PILES .♦ 

». .• 



KbAD V 

••*F1**^^**^^«** 

itEAD hbCOKD 

• FKOM FILL • 

tirOULSTED FY 

♦ SORT/MERGI • 

PRObRAM 



EOF 

». .•* 

• NO 



• . YES 

.• 



•••G2^^^*^^*^^^* 
-> CLOSE FILE 



COMCLOSE 

«**««Q3*********« 

•SET CODE EOF OM^ 



DATE INTS 
EOF COUK 



COMklN V 

• STORE RhCORD • 

• AJDR. CODt TO • 

• lNSl!;RT RECORD • 

• i;i PARAMETER • 

• LIST • 
***•••***•**••*** 



*•*• 

* « 

• Jl • 



• **• 



•***J1^^^^**^** 

* 4 

* RETURN 4 

* 4 

***•••*••**••** 

TO SORT/.MEiKGii 
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chart CB. Moving Characters (ILBDMOVO) 



> « 

> ILBDMOVO * 



B2 *. 
.* ♦. 

.*L£NGTH LESS*. 
►. THA.1 1 



•****C3********* 



GT256 V 

*****D2 ********* 



****D3********* 



»****£2***»*«**** 



*****F2********** 



* AND RECEIVING * 

• POIHTEnS ♦ 

• • 
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Chart CBA. STRING (ILBOSTGO) (Part 1 of 2) 



•save rbgisteiis • 
•a;id ih|t!alize • 

• work akea in • 

• TGT • 



•.variKble^.* J ; 



GET LENGTH FROM 



•.ABogSiSWlND : 
>• or RECEIVING • 



PTR VALUE- 1, •<- 



•BET POINTER TO 

• tIEXT PARAMETER 

• SLT PASSED 



T DELIMITER • NO .•DELIMITER •. 

TO jfERO •< •. PKfSENT IN .* 

• •. SET •• 



• ••••H3»»»»»""» 

:'BiL{8??fi^8' : 

•DLHADR.ANO.SIXe* 



T?ii.'8pFr 

AND LENGTH 



••POINTERS. 
.• VALUE < 1 • 

.OR > SIZE or 

•.REC|tvING.* 
••rlELD.* 



• 01 • 

• fit •-> 



.• CVEHrLOW «. YES • SIT TGT. • 

'• ixil .• >• OVERFLOH FLAG • 

•.SPlCiriED.^ • ON • 



^imi 



r— -•.^ PRESENT ,••— 1 
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Chart CBA. STRING (ILBDSTGO) (Part 2 of 2) 




ADD ONE TO THE 
ADDRESS OF THE 
SENDING FIELD 



AS- 



^^SENOIHO^ 
^ADDUBSS - plD^ 

© 



'ADDKESS 
YES 



SET NUMBER OF 

CHARACTERS TO 

BE HOVSD 



,Ntf?OF 



<'^HARS >\_ J 
RECEIVING >- 

^SUE-^ 



MOVE SENDING 

FIELD TO 

RECEIVING FIELD 



UPDATE ADDRESS 

OF RECEIVING 

FIELD 



NO 


.^x^FOI^ 


TER^S. 

Firo^* 


■■ >v*fK:i 


^s. 


YES 




32 ' 


' 




CALCULATE NEW 

POINTER VALUE 

INITIALIH 

ADDRESS OF 

RECEIVING FIELD 










" 


1 




SUBTRACT ONE 

FROM HO. OF 

SENDING FIELDS 

IN THIS 

PARAMETER SET 
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Chart CBB. UNSTRING (ILBDUSTO) (Part 1 of 4) 



• XUOUSTO • 



•••••Bl** 


•••••••• 


:*''L?I8 


EfiS"**: 


tMolilSil 


sIsjItv : 








.•.•Msnaifc;*:.^ 



**its 



tusiVf^s: 



•Tltixy VALUE'tO * 






.|OIgJEg.. 

• .SENDINC rULD.* 






L 



• ••• V 
UNSTLUP .,••• 

.•EltB_et'». 



• 01 • •' 

•"■ i 



LADT CALL 
'•• •♦* 

*»iEs 



• en •— , 

:...♦ 1 

uwaovPLo V 

•YES • • 

I : " : 

I •••• 



»ES 



•***E3******«** 
■riPlxE. 



•..EXISTS ^.» 

•Ves 



■r^3^'=*«: 



....>* HEOI8TERS • 



RfcT'lRN 



imSTVPE .,•. 



*'•. ••"* V 

* • ••••• 

• 02 • 

• »!• 



." *■• 

VE8...-«UHJ^H •.,. 

'■•••ftS** 



.• RECklVING •. VE8 



, • ••••• 

•NO *«2 ♦ 

l.>^02 • • • 



*:H2\ 



•••••£$••••••••< 



i BN03A2 

•••••rs^^^ •••••• 

•iLBoevm 



•••-•••. 

• coNv: 

• IN f: 



COKVUT COUNT 



•-•.• 
:0UNT 
AND 



tlilMF: 



• PAftAHiril 

•••••••it* 
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Chart CBB* UNSTRING (ZLBDUSTO) (Part 2 of 4) 
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••••• 

•02 • 



« 

loitiKf^iiiS 9S oi 



DSblHLUP V 



• IIKIliHIiNT COUNT* 

•pmwmtM) rliLD* 



i 

.•' *•. N 

*. yiRST CALL 



• ••* 



"W!S, 



I 



n ». 



'•(» 



*M8JK"";:.«L._>: Pi|{8|tfc* \ 



OELrcNp . V Ditrtur 

^i***Cl«*«******* 

* sisvf lit* or * x*il1PO.t- 



•*<»D3********* 
MOVI 



IRST CALL .•—1 »k 
•• ••' i • 



••*««C2********* 



•VES (Oi * I 

• M« J »♦»» 

• * 1->*0J • 

• » hi ' 



I .... 



V 



...f.. .......... NO .. CClINIttK *. 

*.ft8 



... «f J . »..«.». 
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Chart CBB. UNSTRING (ILBDUSTO) (Part 3 of 4) 




1 



INDICATE 

OVERFLOW 

CONDITION DOES 

NOT EXIST 



ADO UNQTH OF 
DATA MOVED TO 
POINTER VALUE 




02 



GET SIZE AND 

ADDRESSES FOR 
RECEIVING FIELD 



UPDATE TO 

ADDRESS OF NEXT 

BYTE OF SENDING 

FIELD TO BE 

PROCESSED 






(^ 




INCREMENT 
DELIMITER SIZE 
FOR NUMBER OF 
DELIMITERS IN 
SENDING FIELD 



INCREMENT INPUT 
PARAMETER FIELD 
ADDR By LNG OF 

RSCEIVIMa 
PARAMETER FIELD 



INCREMENT AOOR 

IN SENDING 
FIELD AND SAVE 
SIZE AND AODR 



RCDEL1 




SEARCH 

DELIMITER TABLE 

AND SCAN 

SENDING FIELD 

FOR MATCH 





SET LNG OF DATA 
MOVED TO EO LNG 

SET STARTING 
AOOR AND OLHTER 
IN SENDING FLO 



SET END ADDRESS 
TO END OF 

SENDIHG FIELD 
AND SET FLAG 



GET LENGTH OF 
DATA TO BE 
MOVED FROM 

SENDING FIELD 



EJQIIAI f 



SET Ura OF FLO 
MOVED TO SItB 
RECVING FLO/LNG 
OF REMAINDER OF 
SENDING FLO 




.0 
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Chart CBB. UNSTRING (ILBDUSTO) (Part 4 o£ 4) 



4hmf^\ 



'•h'Wkl^^C-' 



. 


■^#1; 


IH 


. NO 

] 




•,ORO0 


I.* 




• 


•«8 


%*! 



♦ HI • 

.:;*% K»F'::.!52 — >.:j"iM£h::.L'2. — >.:f;IgE'm;5:.i:Si: — >r8?IMF : 

tin '•{tes 



•CgMPUTt. Ng«EI6 • 



•::>wr.:---"-i <:-*?«" 



••***Gl ********* 






*****G2****< 



•:.!5I: — >:*?igS ?8B8i§? : 



->:T«i5Pi 



sMPExsgy ., : I 



iRfigWrigLoi* 






.• •. • ADJUST FOR • 



• RESTORE SAVED 



•fio 



RtTHRN •<— .. 



* ri * 

• * 



• A3 • 

•....--1 

MKCVt . V 

•••••A5* •••*••*** 



iLitm k$Sht : 

• or decihKl • 



isciEirrJgfoR : 



: siFjUjS^E'gfoN : 



4mQ 



•••••••••«•••••* 



L 
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Chart CBC. INSPECT Subroutine (ILBDINSO) (Part 1 of 4) 



[ ILBDINSO j 



GETCORE IP 
FIRST TIME, 
SETUP IDENTl 

PARAMETERS 



XDELIH 



ESTABLISH BE- 
PORE/AFTER 
(DELIMITER) 

BOUNDS, BUILD 
TRT TABLE 



XSCAN 



EXECUTE TRT ON 
IDENT1, DO RE- 
PLACING/TALLY- 
ING WHEN 
NECESSARY 



XTERM 



UPDATE TALLY- 
ING IDENTIFI- 
ER (S) , UPDATE 
IDENTl, CLEAR 
TRT TABLE 




XSETUP J 


YES 






B3 ,, 




SET UP ADDR. 
TO PARAMETERS 




r 




CI 




a 


C3^^'^^^^. 








CLEAR IT 
TO HEX ZEROS 


^^ FIRST ^N^ 


OBTAIN 
SUBROUTINE 
WORKAREA 


V^IMC TIIRU^ 










NO 












D3 , 




YES 








SAVE IDENTl 
PARAMETERS 




E3 1 






REMOVE 

IDENTl 'a SIGN 

IN HOLD AREA 

(IF SIGNED) 




1 
F3^^ 


s^ 




P« 




^-•'''^lOENTI ^S^ 


( "" > 


\ 


V^ LEN-0 ^^ 






1 


G3 


NO 


RETURN TO 

IN-LINE 

CODE 




r RETURN 







84.6 Flowcharts 



Licensed Material - Property o£ IBM 



Chart CBC. INSPECT Subroutine (ILBDINSO) (Part 2 of 4) 



r XDELIM J 


81 


1-1 

CHARSW-0 

POINT TO 

FIRST CLAUSE 



© 



SEARCH I DENT 1 

FOR OELIMITER 

<HIDlBASe-AD- 

DRESS IF FOl'NO) 




(COMI'ARISON 
VIA PROORAM 
COLIJ^riNn 
8FWENCE) 



COMPARAND 
• LENGTH- 1 




SAVE T H E H AHB 

ELIMINATE 
THEIR SIGNS 
IN HOLD AREAS 
ir WECBggftBV 



-^.ArTER.>> 


NO, "BEFORE" 




^\. 








YRS 






» 




„ 1 


DELIMITER-LOW 

-ADDR>HtD1BASE 

♦LENGTH 

(DELIMITER) 




DFLIMITER-HlOll 

-A0DR-WI01BA5E 

-LENOTH 

(COMPARAND) 



INVALIDATE 

LIMITS 

(LON AND HIGH) 



TALLY COUHT-0 

DELIMITER- LOW 

-ADDR-ADDR ( IDENT1 ) 

DELIMITER-HIGH 

AD0R>ADDR(I0ENT1) 

* LENGTH (I DENT 1) 

LENGTH (COMPARAND) 




SET DUMMY 

TRT TABLE 

INDEX 




ISK FIRST BYTE 

OF COMPARAND 

AS INDEX TO 

TRT TABLE 



CHAIN CCRRF.NT 

CLAUSE (I) OFF 

TRT TABLE 

ENTRY 



'BEFORE'^ V "0 
^OR "AFTER" 



►0 




POINT TO 

NEXT CLAUSE 

(I-I+1) 



© 



( RETURN j 



I 

NOTEl IF 
ENTRY ALREADY 
EXISTS, ONLY 
INDICATE THAT 
Sl'BSEOl'ENT 
CIJM'FES CAN 
MATCH 



© 
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Chart CBC. INSPECT Subroutine (ILBDINSO) (Part 3 of 4) 



( XSCAN J 




POINT TO 
CLAUSE INDEXED 

BY TRT 
FUNCTION BYTE 




NO, "FIRST" OR "LEADING" 







NO, "LEADINO" 




INVALIDATE 
LIMITS FOR 
THIS CLAUSE 



■© 



© 



BUMP DELIMITER 
-LOW-ADDR 
BY LENGTH 
(COMPARAND) 




REPLACE 

THE 

SUBSTRING 

OF IDENT1 



BUMP I0ENT1 
POINTER BY 

LENGTH 
(COMPARAND) 



REDUCE 

LENGTH OF 

IDENT1 FOR 

TRT 




■© 



J 3 1 r XSCHEND 




© 



( RETURN ) 
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Chart CBC. INSPECT Subroutine (ILBOINSO) (Part 4 of 4) 





XTEBM J 


B1 




POINT TO FIMT 
CLAUSE 


N 






) 


CI 1 1 XTRMCtS 




CLEAR TRT 

TABLE BYTE 

USED 




BUMP TALLY 

I DENT BY 
TALLY-COUNT 



REPLACE IDBNT1 
FROM HOLD AREA 

(EXCEPT FOR 
SIGN POSITION) 



( RETURN j 



<E) 
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Chart CC. Segmentation (ILBDSEMO) 



» « 

• ILBDSEMO • 



ENTER FROM COBOL 



V 

.♦. 
Bl *. 



*.PN IN OPERAND. *<- 

*. .* 



• ****C1'********** 



••**********•**•* 



*SET ENTRY POINT* 
>* ADDRESS AND * 

• PRIORITY NO. • 

• * 



V 
SEGLABl . * 
El 



•****B2** ******** 



• SET UP INPUT 
-* REGISTERS 



****A3********* 

» 4 

> ILBOSEHl « 

» 4 



* CONVERT BL * 

* NUMBER AND « 
•*DISPLACEHENT TO* 

* PN ADDRESS * 



ENTER FROK SEGMENTEC 
COBOL PROGRAM IF f HI 
OPTIMIZATIOtT (OPTJ 



OPTION IS SPECIFIED 



***************** 



**** 

* • 

* K2 * 

* * 
**** 



.*. 

Fl *. 
.*SE6 OF *. 
YES .* DEBT *. 

*. ALREADY IN .* 

*. VIRTUAL .* 
*.STOR .* 
*. .* 
*N0 



*LOAD .SEGMENT A 

• DESIRED ENTRY 

* POINT 



JAOlAl 
*****(J3********** 
*ILBDDBGO * 
*_*-*-*-*_*_*-*-* 
>* INITIALIZE * 

* SEGMENT FOR * 

* DYNAMIC DUMPS * 



■*"- 



HI *. 

. *S£6MENT* . 
► OF DEST *. YES 
INDEPENDENT .* 



.* *. NO 

->*.PN IN OPERAND.* 

*. .♦ 

*• .* 



H3 *. 

.•SEG OF *. 
.* ORIGIN" *. YES 

->*• SEGMENT OF .* 

*. DbST .* 
*. .* 
*. .* 
*N0 



* SEGMENT 



• K2 ♦ 

♦ ♦— , 

**** I 

[T V 



EXIT 

•***X2* ******** 
•EXIT TO SEGMENT* 
>*0F DESTINATION •<- 
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Chart CCA. GO TO DEPENDING ON (ILBDGDOO, ILBDGD01 , ILBDGD02) 



G 



D 



■AVE MGISTXW 





C2 1 

NO 



,>«^ta-mwibVo 



USE VALUE or 

DATA-NAME AS 

INDEX INTO U8T 

or PN'S 



^^ IN rootSjJ 

^>^EOHENT,X'^ 
ITES 




c 



EXIT TO PN 



3 



Rl • PRIORITY 
OF TARGET 
Rm • ADDRESS 

Of TARflET 



© 



c 



ILBDGD01 



) c 



SAVE REGISTERS 

AND NOTE 

REQUEST TYPE 



(EXIT TO ^ 
1LBOS0M1 y 



( RETURN \*- 



II.BDaD02 



) 



SAVE REGISTERS 

AND NOTE 

REQUEST TYPE 



»f RETURN ) C"*)~~"* 




ALTERED GOTO 

VN CELLS IN 

SEGMENTS WITH 

TARGET'S 

PRIORITV 



S ^^'^fRESH^S^ 

-<^ ONLY ^ 

^S«0UE8jX^ 



c 



3 
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Chart CCB. DATE, DAY, and TIME (ILBDOTEO, ILBDDTEl, ILBDDTE2) 



c 



3 C 



ISSUE CETXMt; 
HkCRO TO SET 

TIHb IN 
TIMER UMXT8 



CONVERT TIME 

TO HUNDREDTUt 

AND SET IN 

OUTPUT AREA 



CONVERT TO 

SECONDS, MINUTES 

AND HOURS AND SET 

IN OUTPUT AREA 



-) c 



3 



ESTABLISH 

COMMON BASE FOR 

SUBROUTINE 




ISSUE COHRG 

MACRO TO GET 

DATE 



DAY 




CONVERT HONTM 
AND DAY TO JULIAN 
DATE, CAbCULATINC 
FOR LEAP YEAR AND 
PUT IN OUTPUT AREA 



SET HONTII AND 

DAY IN 

OUTPUT AREA 



« ' 


' 


■ESTORC 
RCOS 


1 


' 


[ RETURN J 
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Chart CCC. GETCORE/FREECORE Subroutines (ILBDCMMO, ZLBDCMMl) (Part 1 of 2) 



c 



D 



u 


J 


L 


m 




u 






y^ 


riMT ^ 
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•LOCK 


V 








> 


NO 












Cl 


' 




u 








ROUND UO 
*t TO 121 

■YTS MCR 




>i 




' 


' 






OCTktiOCX 



c 


CtTRMCK 


1 


lt« 


' ' 




X(8UE 

OtTVIS 
rOR NbOCK 


c« 


' ' 




OIAXN 

■LOCK 

IN 


U« 


' ' 




c 


RETURN 


) 



tCMCH roR 

uNuaio »io 

■NOUOH 




01 


' 


' 




SR ur 

ttORAOl 


Ml 


1 




c 


RMURN 
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Chart OCC. 6ETC0RE/FREEC0RE Subroutines (ILBDCMMO» ILBDCMMl) (Part 2 of 2) 



c 



■1 V 



3 



lOCATI 

SLBtBIT 10 
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a 




C3 




NO 




MWI 
■MOD 




CMKH. 










NEXT 
lUMCm 

tut 




nuoR 
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riuiK 




» w 



c 
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Chart GCD* Comparison with Alternate Collating Sequence (ILBDACS) 



f XLBDAC80 j 



©- 



■COHPME 
LONG* (CLCL) 
OPOI VS. 0PD2 




*( RETURN J 



OBTAIN THE 2 

CHARACTERS 

(rROH 0PD1 AND 

0PD2) WHICH 

MISMATCHED 



TRANSLATE 

THEM VIA 

PCS TABLE 

(POINTER IN 

TGT) 




RESTART AT 

NEXT CHAR IN 

EACH OPD 



( RETURN J 

CONDITION CODE 
18 "HIGH" 
OR "LOW" 



© 



THE CHARACTERS MILL BE 
BOUAL AFTER TRANSLATION IF 
THE "ALSO" CLAUSE HAS 
SPECIFIED FOR THEM. 

GO BACK TO THE MOST 
RECENTLY EXECUTED 
-COMPARE LONG' 




© 



IDENTIFIER VS. 
MULTI-BYTE FIGCON 



'COMPARE LONG" 
^ (BASED ON 

^^ IDENTIFIER- 
LENGTH) 



■COMPARE LONG* 
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FIGCON 
LENGTH) 




■COMPARE LONG" 

IDENTIFIER 
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OFFSET BY LENGTH 

OF FIGCON 




>/ RETURN J 



OBTAIN THE 2 
CHARACTERS 

WHICH 
MISMATCHED 



TRANSLATE 
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TABLE (POINTER 

IN TGT) 




RESTART AT 

NEXT CHAR 

IN EACH 

OPERAND 



f RETURN J <^NOTE 2 J> 

lONDITION CODE ^^Vy,*''''^ 



-0 
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Chart EA. Display (ILBDDSPO) (Part 1 of 2) 



****A2** ******* 
> ILBDDSPO 4 



«****B2********** 

♦ * 
•SAVE REGISTERS,* 

♦ DEVICE CODE. * 

* SET BIG8W ON * 

* * 
*•**«****«****•** 



**** 
*01 ♦ 
* C2 *-> 



.* *. NO 

— >• . SYSPCH . * 



*•** 

• * 

• C2 » 

**** 



.* *. YB8 

— >*. riRST CALL 



UX . *-~-i 



• * 

• • 
*••* 



***D1 *********** 

* * 

OPEN <- 
* * 

**************** 



D2 *. 
.* * 
.♦ 
•* . OPEN 
*. 

*. .* 
*. . * 
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UNITCON . • . 

W *. 
.* *. 
.* *. MO 

*. FIRST CALL .* 



• •• 



«. 



■"I 

*••*• 
•02 ♦ 
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DS 
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•. 



•NO 



••*«*E3********* 



>• buf: 
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**** 
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* F2 ♦ 

* *-> 

• *** 
UNIT12 

F2 



NO .* 

*. SYSPCH 

• . 



• *• 
* 
• F3 



•****G2*** ******* 



*••*•*•*«******•• 



0NIT15 .*. 

H2 *. 
.* *. 
,• *. YES 

*. FIRST CALL .* 

*. .* 

*. •• 



* ILBDDSS7 
* PUT SYSPCH < 

***•••*********• 



•ILBPDSSK 
*-*.•-*-•.•-•-•. 

* INITIALIZE 

* CONTOLC 



EXHIBIT . •- 

• •* 
• • •• 

•NO 



TRACE 

.* 
*. .♦ 
♦ YES 



U3 *. 
t 

RESET 



***•• 

• 02 • 

• B3^ 

• • 



••••• 

• 02 * 

• C2^ 

• • 



»***33**»»»****» 



• ••• 
->• » 

• C2 < 



**•**•••**••**•* 



• ••• 

• 01 • 

• an •-> 



•PREPARE EXHIBIT^ 
•STATEMENT DATA • 

• FOR WRITE • 

• • 
••*•**••*•*•••••• 



SET UP EXIT * 



*••• 
->• ♦ 

• C2 • 



•••• 

• • 

• F3 « 

• • 
•••• 



.." *••. 

YES .• *. 

•.EXHIBIT NAMED. • 

• . •• 
•. •• 
• . .* 
•NO 
•*** 



• F5 • 

• •-> 



,.nmu 



•••r5^**« 

» ILBDD885__^ * 
"0PEn"sY8L8T*^ 



• ••• 
->• • 
• F2 • 
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Chart EA. Display (ILBDDSPO) (Part 2 of 2) 



•02 • 

♦ Bl^« — 1 



EB02A3 
•**B1 •*•**•**•** 
ILBDDSS6 



• ••• 
•02 • 

• 33 • — 1 

• •*• V 
TSTPRM .*. 

B3 



— >*. VARIABLE DATA. 

*•• .•* 

•*• *. .• 



C2 •—•I 



» B3 * 

• 4 

• ••• 



• ••• 

DIEXJI^ 



.* •. 
.* •. YES 

*. LASTSW ON .* 

*. .* 



•C2^^^*****^* 



•TURN OPP BIG8W,* 

->• RESTORE • 

* REGISTERS * 



*****C3*^^^*^^^^* 
• 
ET RETURN * 
D0RES8 TO * 



SET RETURN 

AOORESS T' 

OILET 



V EB01A3 

•ILB00SS8 • 
•>•-•_*-*-•-•-•-* 
•LOCATE DATA TO • 
• BE DISPLAYED • 



****02^**^^*^*^ 
> RETURN « 



TO COBOL PROGRAM 



V EB01A3 
••••*D3**^^^*^^^* 
•ILBDD888 • 

•LOCATE DATA TO * 
• BE DISPLAYED * 



VARET . V 



r 7 " "~ 

5P .». MVTOBP 



.* •. YES • MOVE DA 

• .WILL DATA PIT.* >• iUPf 

*. .* • 



P3 



NO 



.* NUMBER 

EXHIBIT .•- 

• . .• 1 

». .• V 

*. .* ••*•• 
•YES •Ol • 
• C2^ 

* * 



•••G3*^^^^^*^^*^ 



.• •. 

.• •. YES 
•. BUFFER FULL .* ^ 



• ••*• 
•01 • 

• C2^ 

* * 



[•••* 
->»01 • 



• C2 • 

• • 
*••• 



• •*•* 
•01 • 

• GU* 

• • 



•.TERMINAL CODE.^— 



,» 
'•YES 



• **• 

* • 

* B3 * 

* * 

• •*• 



• SET LASTSW ON • 



->*01 • 
• C2 • 
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Chart EB. Optimizer DISPLAY (ILBDDSSO) (Part 1 of 2) 



» 4 

> ZLBDDSSfl * 



•SAVE REGISTERS,* 
• DEVICE CODE *- 



*«***B2*********'* 

• • 

• SET UP BUFFER • 
->• AND LOSSSW. • 

• CLEAR BUFFEft * 



C2 



*. BIG8W ON 



•***D2********* 

» 4 

* RETURN ' 



TO IIADD8P0 



• *•* 

* « 

• 83 * 

* * 

T8TPRM . . 

•*«**B3********** 

* * 
•SET UP POINTER * 

— >* TO ITEM TO BE • 

• DISPLAYED * 

• * 



C3 



.* VARIABLE *. YES 
LENGTH . * 



***•**•**•••***** 



* 4 
->• RETURN < 

• « 

TO ILBDDSPO 



****D5********* 

* 4 

♦ RETURN » 

• « 

*************** 

TO ILBDDSPO 



••***£3 **•*•••*•* 



* SET LENGTH OF • 

• ITEM • 



P3 



.* *. 
.* * 

*. BIGSW ON 


^YES 


• 
— >♦ 

* 

TO 


RETURN 


*. 


NO 


ILBDDSPO 


*^fr.*G3. 

* MOVE D] 
♦ITEM TO 


iSi^iR : 







H3**'». 



• *** 

> « 

> B3 * 



CONSOLE 



■ .* 
*N0 

l.>*02 * 

•••• 



--1 

••••• 

• 02 • 

♦ B3* 
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Chart EB. Optimizer DISPLAY (ILBDDSSO) (Part 2 of 2) 



» « 

• ILB0DSS5 * 



****A2********* 
» ILBDDSS7 * 



**** 
♦02 ♦ 
♦ Bl ♦-> 



***C1 *********** 

> * 

OPEN SYSLST 



PUT 




.*"'■ 


*, 
*, 

* 








* 






* 


NO 


— >* 




BIGSH ON 








* 


*, 
* 


.* 
• YES 


* 





***fi2*********** 

•PUT TO SYSLST * 
OR SYSPCH 



TO ILBDDSPO 



****A3********* 


• * 


* ZLBDDS86 * 


* * 


**** 




*02 * 




* B3 *-> 








**** 




CONSOLE ' ' 


*****B3********** 


* * 


* SUBTRACT * 


*TRAILING BLANKS* 


* FROM LENGTH * 


* 
•#******4 


* 



***C3*********** 

• * 

EXCP TO CONSOLE 



CLEAR BUFFER 



.* *. YES 

*. BIOSH ON .*—— 



****F3********* 



->* RETURN 

* 

TO ILBDDSPO 



•***G3********* 
> RETURN * 



TO COBOL PROGRAM 
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I Chart EC. Accept (ILBDACPO) 



• >*8AVB RB0Z8TER8 * 



rNKSi'^R'Sifftiitt: 



SETSTOP 

•STOP 
•LITERAL 
SET UP CCH'S •<— — — - 



• • t* 
*. •* 



COMSOL 



• WRITE STOP 
LITERAL 



• SET OP CCW'S 



.*. 
C3 ♦. 
.* *. 
. SYSIPT .* •.NO 
.• ...->*. DTP OPEN ^.* 

' *♦. .•* 

'•(es 



(••D3*^****^**^ 



L 



•*•* 

• • 

• HH • 

• • 
• ••• 



•••£2*^*^ ••***•• 

* • 

-> WRITE 



V 
READ 



• '. S0CCB88PUL 



• ••* 

• • 

• CD • 

• • 

• ••• 



•••••il2^^****^^* 



_8ET_L001CAL ♦ 
IMOTH • 



• SET LOOK 



.t. 

B3 •. 

.• •. 

.* *. tES 
•.DM LEN or 80^.* 

*♦. .♦' 

•. •• 
•MO 

•••• 



• r3 • 

• •-> 

•••• 



ACCPOt 



OND to • 
TTH* 



•t. 



's?siwr 



•••••G3^^^^*^^^^* 



"«5*Sf^«,^ 



•••••*••• 




.:*iip*°x8^ll**Nl!5. 



•*^ 



••••J3^******^^* 



RETURN 



1**»* 
->♦ . • 

• r3 ♦ 
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Chart ED. Checkpoint (ILBDCKPO) 



* ILBDCKPO 4 



****B1********* 
SAVE REGISTERS 



****A2********* 

» 4 

» ILBDCKPl * 



> ILfiOCKP2 4 



•«***B2**** ****** 



***************** 



*****C1** ******** 



•*•********•***«* 



*****Q1 **•»*••** 



* A <DTFPTR-N) 



*****B3 •*****•**• 

* * 

* * 
•STORE REGISTERS* 

* * 

* * 
***************** 



*****C3********** 



****Ait ********* 
» « 

> ILB0CKP3 « 

» 4 

**•**********•• 



****Blt********* 



->* GET DTPPTR 



***************** 



END OF *. YES 
TAPLIST . ♦ 

,* 



***************** 



.* *. YES 

->♦. SORT CALL .* 

*. .* 



****Clt ********* 
► RETURN < 



*****D<t ********** 

* * 

* MOVE SORT * 
->* PARAMETERS TO * 

* WORK AREA * 

* * 
***************** 



pBInIF'to *'. 

DTPMT .* 



•****F2*** ******* 



***************** 



•****g2********** 



•**•****•*«****** 



****••*«••****•** 



*****P3********** 



***************** 



63 



04 *. 
.♦ ♦. 

->*'. DTFPH OPEN 
•• . 
*. .* 

*. .* 

♦YES 



LIST TO DTFPH * 
• * 

***************** 



»****HS*********4 
' OPEN DTFPH • 



.* 
. * 



*****xi********** 



****K2********* 

• « 

->* RETURN * 



*MOVE SYS HUM TO* 

* CHECKPOINT * 

* MACRO • 

* • 
*•*****•****•*•** 



*****X3********** 



* ISSUE MACRO *- 



• ****Xlt********* 

* 
->* 



RESTORE 
REGISTERS 



**•****•**•*«•*** 



***************** 



**************** 



****xs********* 

* « 

->* RETURN 4 

* 4 

*************** 
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Chart EE. Open ACCEPT File (ILBDASYO) 



> t 

* IlfDASYO * 



Licensed Material - Property of IBM 



****C3********* 



****D3********* 
OPEN SYSIPT 
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Chart EF. Open DISPLAY File (ILBOOSYO) 



****A2*** ****** 
» ZLBDOSYO * 



V 
.*. 

B2 *. 
.* *. 

SYSPCH * 
REQUESTED 

**. .** 

*. .* 
*N0 



.* *. * 

.* ••NO ♦ 

->*. SYSPCH OPEN .* >• 



• **• I 
• C2 • 

• •*• V 



'•YES 



C2 



****02** ******* 



OPEN SYSLST 



OPEN SYSPCH 



.*. 

D« *. 
.* *. 
.* SYSLST *. YES 
*. REQUESTED .* •, 



*. .* 

*. .* 
*NO 



• ••• 

* * 

* C2 * 

* • 

• *•* 



RETURN V 

••**F2********* 
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Chart EG, Close With Lock (ILBDCLKO) 



» 4 

» ILBDCLKO « 
» « 

*************** 



*****B3**** ****** 



♦ POIllT REG I TO ♦ 
♦PRE-DTF SWITCH * 



V 
.♦. 

C3 ♦. 



. ♦ PRE-DTF 

♦. SWITCH " 

•. X*FP' 



****cu* ******** 

* < 
->• RETURN * 

* i 

*************** 



*****Q3 ********** 



***************** 



V FI01A3 

*****{>3** ******** 

*$$BCOBER * 
•-*-*-*-*-•-*-*.* 
* EXECUTE 8YS 
* ERROR PROCi 



•***P3********* 
» 1 

» CANCEL « 
> 4 

*************** 
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Chart EH. User Standard Labels (ILBDUSLO) 



* I 

* ILBDUSLO * 

* 4 



••***B1* ********* 

* * 

*SAVE REGISTERS * 



****A2*** ****** 
* ILBDUSLl 



* >*INDICATE LBRETl*- 



• *** 

* * 

• 82 * 

*•*« 1 


RET0RN1 

***< 
* 
* 
* 

**•« 


...t. 

RETURN* 



*TO MOgS WITH SVC9 



*****B3********< 


»* 

♦<■ 
»* 



* • 

* At • 

* ♦— 3L 
*•** V 

.*. 
A<t *. 
.* *. 

.* *. YES 

->*. OPEN I-O .♦ 

*. .* 



RETURN .*. 

B4 *. 

.* *. 

VE8 .* *. NO 

*. DTFMT .* 

*. .* 



«*»**AS**** *****" 

* • 

* * 
>>* INDICATE LBRET3* 

* * 

* * 
***************** 



V 

. *. 

CI *. 



*****C3********** 



* •***C<(********** 

* • 

*BuitD AREA FOR * 

* DTPOA * 



.*COMING PROM*. YES 

> . OPEN . * 

*. .* 



.*" •■ 


*. 


EOF 




*, 

*. .* 

*N0 


* 



.* *. NO 

->* . DTFDA . * 

*. . • 



*SET UP TO POINT* 

♦ TO BOP * 

* PROCEDURE * 



*•** 
->* * 

* B2 ♦ 



.* ♦. OFF 

->*. BOV BIT .* 

*. .* 



♦SET UP TO POINT* 

• TO BOV ♦ 

* PROCEDURE • 



*****C5********** 

* * 
* POINT TO LABEL * 
*BUILD AREA FOR •< — 

* DTFSD ♦ 

* * 
***************** 

**** 



**** 

•****D5**** ****** 

* * 

* * 
>*TURN ON BOV BIT* 



*****£5********** 

* * 
♦SET UP TO POINT* 

* TO BOF • 

* PROCEDURE * 

* • 
***************** 



•****P2** ******* 
|0 POINT 
PRdCEDURE 



.*. 

F3 *. 

.* *. 

.*USER LABEL *. 

->* . PROCEDURE . 

*. EXISTS .* 



NO 



*. 



,* 



.* *. 

~>* . DTFMT 

*. .* 
*. .* 
*. .* 
*N0 

I 



****ril ********* 
> < 

• ILBOUSL2 < 



*****J1********** 

* • 

* * 
* INDICATE LBRET2* 



I**** 
->* » 

♦ AH • 



T8T0TFSD . * . 

H3 *. 
.* *. 
.♦ *. YES 
*. DTFSD .* 



DTFDA V 

* • 

* GET DATA * 



* GET DATA * 
->* ADDRESS FROM * 

* CCW FOR DTFMT * 



I**** 
->* * 

• JO * 

* « 
• •** 

*****Hlt********** 

* * 

* GET DATA • 
->* ADDRESS FROM • 

* CCH FOR DTFSD * 



*. NO 
OUTPUT . * 1 



*****Q5********** 









* J« * 

* *-> 

•*•* 

J<»' 



.* *. NO 

->*. INPUT .• 

*. .* 

*. .* 

*. .* 
•YES 



* RETURN < 

» < 

*************** 



EXIT 

****X5********* 

*RETURN EXIT TO * 
— >* USER LABEL * 

• ROUTINE * 



91 Flowcharts 



Licensed Material - Property of IBM 



Chart EI. Nonstandard Labels (ILBDNSLO) 



•A3« 



ILBDNSLO 



ILB0NSL2 



• *•* 

* 4 

» B2 « 

* i 

• *•• 



*SAVE REGISTERS *- 



CB01A2 

•***«B3***«*«i$** 

*ILBDMOV0 • 



.* *. NO * SET BRANCH TO * 

->*. INPUT •• >*USER PROCEDURE • 

*. .* * * 

*. .* * * 



•YES 

>• « 

♦ Jl * 



L. 



.* 


'^^^SSu?" 


*. 


NO 


, 


. 


«_. 


• 


♦ . .♦ 

*y£S 


.• 






U/ 


•*< 








• 




* 


F3 


• 



BOFBOV . • . 

Dl ♦. 
.♦ ♦. 
.* •. YES 

• . INPUT .*- 



P .*. 

02 
.• JHM 
»REEL CC 



• , 



El * 



,» 



IHIT *. 
.*REEL COUNT *. NO 

->*. - CUR REEL .* 1 

•• COUNT .♦ 1 
♦ . .♦ V 
*. .* •••* 
•YES • • 
• Fl • 



«••* 



• •• 
C3 •. 
.* *. 
.* *. YES 

->•. INPUT PILE •• 

*. .• 

•. •* 

• • .* 



*****D3*^« ••••••• 

• • 

•TURN ON OU^UT • 

~"MLER L« " 

SWITCH 



LAST REEL 
'•• .♦' 



• SET JJP TO POINTJ 



*. 



* • 
♦SET UP TO POINT* 

* TO BOV • 

* PROCEDURE • 



H3 * 
• **• 



****bs********* 

♦ exit to user « 
->• error routine * 

* * 
•••****#****••« 



• • 
->^EXIT TO LIOCS* « 

• « 
*************** 

♦ LBRET 2— EOF 



.• •. 
.• •. NO 

•. . EOF .• 

♦ . .• 

• • .* 
• • .• 
•YES 



• F3 • 

• ♦-> 

• *•• 



•SET UP TO POINT* 
• piocioORE • 



• * 

•SET UP TO POINT* 
->• TO EOV * 

* PROCEDURE • 



****ES********* 
» « 

* ILBDNSLl « 



••***F5**** ****** 



••*/l§5iSr.*-— 1 

♦ . ,* V 



• * 

• H5 • 

• * 



* Jl * 

• •-> 

*•** 
REAOLIB 



• READ LABEL 

* IWAITT 



***H2*^*******^^ 
WRITE TM <- 



• H3 • 

• •-> 

• *•• 

.H3* 



• H3 • 



USER V 

••••*K2********** 



.* READ 
» . BACKWARDS 

», 



.* 



.•• 



pointI 



>•. SWITCH ON .* 



••**J3*****^^^^ 
* EXIT TO LIOCS * 
» OR USER** * 



****K3*«******* 

» iSioR'RooffSE « 



♦ . .* 
*YES 

I **** 
L->^ * 
* B2 * 



• ****Hl(**«**«***« 



G5 


*. 


.* * 


NO .* 


: *. INPUT 


♦ . 


*. . • 


*. . ♦ 


*YES 


*•** 




* * 




* H5 • 




♦ *-> 




***• 




LBRET V 


••**«H5****** 


* 


* RESTORi. 


* REGIi 


!T£RS 



*•**•*******•*•*• 



•••••jd^^******** 



•EXIT TO LIOCS*** 



♦ *LBRET 2~E0V 
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Chart EJ. Error Messages ($$BCOBER) 



****A3********* 
* $$BCOBBR « 



*****B3********** 

* • 
•HAKE ERROR CODE* 

* PRINTABLE IN • 

* DSCIMAL * 



V 
.*. 

C3 ». 
* *• 

NON-DTP *. YES 
MESSAGE . *- 



•••**03********** 

* • 

• MAKE LOGICAL * 
*UNIT PRINTABLE • 

* IN DECIMAL • 

• * 



* HOVE IN FILE * 

* NAME AND HAKE • 

* DTT ADDB • • 

* PRINTAUiE IN * 



****P3********* 



* * 

* * 
•FETCH $$BC0BR1 • 

* * 



• ***IJ3 **••••*** 
► ^5XIT TO * 
* $$BC0BR1 • 
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Chart EK- Error Messages Print ($$BC0BR1) 



****A1* ******** 
t * 

» $$BC0BR1 * 



•****B1 ********** 



* POINT TO LUB 

* TABLE 



***************** 



CI *. 

.** SYSLOG '*. YES 

*.UNAS8IGNE0 OR.* 

♦.- SYSLST .* 
*• .* 
*. .* 
•NO 



***D1*********** 

*WRITE MESSAGE * 
ON SYSLOG 
► (CONSOLE) * 



YES .* SYSI 
. *.UNA8SI( 

I *■*?««< 

•*•* *. 

* * 1 

* Kl * 

* * 


InId ok'.* 

.*' 

.* 

>N0 


• *** 




*****PX* 


' 


* GET SYSLST * 
•DEVICE FROM PUB* 

* TABLE • 

* * 



.*. 

Gl *. 
* *. 
< 
PRINTER 

*. . ♦ 



TYTYPE . " 


». 




.< 


>. 


B3 *. 




B« •• 


.♦ ♦. 




• • •. 


.♦ *. YES 




.♦ •. YES 


^ A TUl .T(%tt *^^^MiKM 


•»■>• 


. TAPE ,.•— , 
• • .• V 


^"^^^ m DU WUB ,*—•-.- 




'*. .♦* 




*. .* 




♦. .♦ •••• 


•NO 




•NO • • 








• E3 • 








* • 








*••* 


■\ 




' r 


F6LST . * . 


DKTYPE ,♦. 


C3 •. 




c« •. 


.* *. 




.* •. 


.* *. NO 
• . TAPE .♦ 1 


• 


:*Exf][8*«?uLL*>l!55. 
*••. .••• I 




*. ,* **** 




*. .* •••• 


♦YES ♦ * 




♦NO • • 


• Jl • 






• Kl • 


• * 






• * 


**•* 






• ••• 






' ' 


.• FILE *. YES 




♦••^♦♦•♦♦♦♦♦♦♦^ 




» WRITE ON ♦ 


♦ .^ PROTECTED ^.* ■, 




SYSLST DISK 


* 


♦ 


*. ,* ••** 




• NO • • 




♦ ♦** 


•••• • Jl * 




• • • • 




* E3 • •••• 




• Jl • 


• •-> 




• • 


• *** 




• ••• 


•••E3^^********* 






•*1§iSs?"?^" • 






* * 






**•* 
l_>* * 










* Jl * 









•**H1********^^^ 

•WRITE MESSAGE • 
ON SYSLST 
» (PRINTER) • 



**** 

» 4 

► Jl < 



DUMP OPTION .• >• 



• •** 
► Kl * 



» FETCHING 

• PROGRAM < 

*************** 



♦GET HICORE ADDR^ 
♦ COMM REGION ♦ 



• STORE THESE * 



>^EXIT TO $$PDUMP* 



RETOftN TO Fl^ 

fROCRAM IS Ffi 
$PDUHP 
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Chart EL. SYMDMP Error Messages ($$BCOB£M) 



****A1* ******** 
» t 

* $$BCOBEM « 

*************** 



*****B1********* 



••****•••*•***•* 



****C1********* 



REGISTER - HIOH ORDER BYTE 



tow ORDER THREE BYTES 
CONTAINS ADDRESS OF 
BUFFER 



.* ERROR NUM *. YES 
. EQ OR LT .♦ 



.* ERROR NUM >* . 
>. MAX 
*. .* 



*****FX********** 



***************** 



*****G1**** ****** 

* * 

* CONVERT TO • 

* EBCDIC FOR * 

* PRINTING * 

* * 
**•••*********•** 



* ****)|1********** 

* • 
♦MOVE PREFIX OF * 

* ERROR MSG TO * 

* BUFFER • 

* * 
***************** 



•****jl* ••*•••••* 

* INDEX INTO * 
*ERROR MESSAGES * 

* AND MOVE TO ♦ 

* BUFFER * 



****X1********* 
» « 

» RETURN » 
> « 

*************** 
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Chart £M. Optical Character Reader (OCR) Interface (ILBDOCRO) 



► ilb!:<x:ro « 



*****), t ********** 

* iNlTlAMZK, » 
•VtKll'-Y CALL AND* 

* lARAMliTLrt, » 
» POINT TO OP » 

* CODt TBL ♦ 
***************** 



xccsacH ^ 

*****CI*****0»*** 

♦ SEARCH FOR » 
♦OPERATION CODE,* 

♦ POINT TO FCB ♦ 

♦ CHAIN ♦ 

♦ * 
***************** 



■ [cc 



****A3********* 
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LEN REC FIT .* 

•.IN BUFFER.* 



TRUNCATE 



* •••*H<(********** 

* * 
•FORWARD lORLG (* 

* RU RESTORE * 

* OTHER REGS * 



^ , . CB01A2 
»K2********** 

*ILBDMgVO * 
*-*-*-*_*-•-•_•-• 



********•*••***•* 



I**** 
->• * 

* 62 * 
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Chart FC. SA Error Routine (ILBDSAEO) 



• ILBDSAEO * 



» t 

> lUOSAEl 4 



****B3********* 



INDICATE DATA 
CHECK 



INDICATE WLR 



•***C3********* 
SAVE REGISTERS 



D3 *. 
• • *. 
NO .• ». 

• . TAPE . * 

*. .* 
♦ . •• 
*. .* 
• YES 



E3 •. 

• • *. 

NO .* *. 

< — ♦. OUTPUT .• 
*. .* 
*. •* 



.♦. 

« ♦. 
.* *. 
.* DATA *. NO 

•.TRANSFER DID •• 

♦. OCCUR .• 
,• 



*. 



♦ WS 



****G3********* 



.•USER ERROR •. NO 

>. PROCEDURE .* 

*. .* 
*. .♦ 
• . .* 
• YES 



.•USER ERROR •. YES 

BYTES . • 

*. .* 



TRANS EJ01A3 

• ••••({^••••••••*' 

•$$BCOBER 
•^•.•-•-•-•-•-* 



'EXECUTE SYSTEM 
»IrR0R PROCEDURE 



••••*•••*•*•••** 



.•ILBDDB62 IN*. NO 

->• . VIRTUAL . • 

•. STORAGE .* 



• II.t>DOB62 * 

•_*-•.•.•_*-*.*-•. 



> USp ERROR * 
* PROCEDURE * 



•••*xs^^*^***^^ 

» • 

• CANCEL •<- 



lOU Flowcharts 



Licensed Material - Property of IBM 



Chart FD. SA Tape Pointer (ILBDIMLO) 



****A3********* 
> ILBDIMLO * 



••*«*B3**«******« 



••**•***•***•«*** 



****C3********* 



GET SYSNNN 
INDEX 



****D3 ********* 
INDEX LUB TABLE 



• 

* MOVE PUB 

* POINTER TO 

* DTP-8 



> RETURN * 
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Chart FE. SA Position Multiple File Tapes (ILBDMFTO) 



****A2********* 

* • 

* ILBDMFTO ♦ 

* • 



•***B2********* 



***C2*********** 

* * 

REWIND TAPE 

* • 



***02*********** 



V 

• *. 

E2 •. 



•**F2*********** 



MFT2 V 

• **i{2* ********** 



••***j2********** 



* INTEGER * 




* • 






' 




. *. 




K2 *. 


•••••X3********** 


.* *. 


• • 


HO .* POSITION *. yES 


>*REGIsIIrS ril-12* 


*. INTEGER - .* 






*. .* 

*. •* 


* * 



• EXIT TO MAIN 
->• LINE 
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Chart FF. SA Test Tape File (ZLBOMVEO) 
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MBWM VU 

m4 laiM) 10 mm 

tmfMICTtON 



A MEWW VIA ^ 
»i OIU) TO AT-BW 1 

V *ao»m y 
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Chart FG- SA STXIT Macro Instruction (ILBDABXO) 



» « 

» RETURN * 
» « 

*************** 



62 *. 

.♦CANCEL ♦. 
.* IS DUE TO *. YES 

••I/O OPERATOR .♦ 1 

*. OPTION .♦ I 
• . .• V 
*. .• •*•* 
• NO ♦ • 
• Ett » 



» * 

» ILBOABXO 4 
» * 



SET LINKAGE FOR* 

ABNORMAL EXIT * 

(STXIT AB) ♦ 



••**C4********* 
•RETURN TO COaOL* 

• • PROGRAM * 

* * 
*****«****•.•••• 



ENTERED AT STAUT 
OF PROGRAM TO 
ESTABLSIH LINKAGE 
FOR LATER ENTRY 
IN CASE OF ABNORMAL 
EOJ 



D2 



♦ . 



♦ . 



.♦ •. YES 

► . READER ,» 

♦ . •♦ 

• . .• 

• • •• 
• NO 



*••* 

* • 

* EH * 

* • 
• *** 



PRINTER 
'•• .* 



•YI 

I- 



NO 



G2 ♦. 

• •. 
. *USER ERROR •. 



, ». PROCEDURE 

1 •. EXISTS . 
V ♦. .• 

•••• •. .• 

• ♦ •YES 

• EU • 



*•** 



,•"2 •••. 
.•USER ERROR •. 
> . BYTbS 



*****l]3********** 



***************** 



• El» • 

♦ ♦--3. 



V KCOlAl 

***F4 •*•*•*••**• 
ILBOTC20 



••*•***•****•**• 



* * 

• * 

•ISSUE EOJ MACKO^<- 

• * 

* * 
***************** 



» * 

► EXIT * 
» * 

*************** 



I**** 
->• • 

• £4 • 
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Chart FH. SA Reposition Tape ($$BFCMUL) 



* $$BPCHUI. * 



•••*«B2********* 

• GET ADDRESSES 

• OF OUR LUB. 
•PUB, AND FIRST 

• JIB 



**«**C2* •♦♦• 

• • 










• SEIZE SYSTEM * 

* • 








*****•*•< 

*•** 


• *****••• 








• • 










• D2 • 










• •-> 










**** V 








COMPTR . • . 




.*. 




D2 *. 




03 ♦. 




.* *. 




.* •• 




.* OUR PUB *. NO 




* ANY JIBS * 


. NO 




>♦ 


CHAINED ^ 
*♦. ••' 


} 


*. .* 




*. .* 


• •*• 


•YES 




♦ YES 


• « 


• ♦♦• 










• E2 • 


* • 










• • 


• E2 ♦ 










• *•* 


• •_> 












**•• 












EXIT V 




'f 




*****E2********** 


0i 


^***E3******** 


*• 


• * 








• • 




SAVE OUR PUB 




•RELEASE SYSTEM * 




POINTER 




♦ • 


*i 


»**•*••***«**• 


*• 



RETURN 



GETNXT . V 



V 

.*. 
63 *. 

.•STORED *. 
.• STANDARD •• NO 

. ASSIGNMENT .* 

*. .* 



•YES 



*****H3***^*****« 

• • 

• MOVE THIS PUB * 



NO .*END OP JIB •. 

♦. CHAIN •• 

♦ . •• 

• . .* 
♦ . .• 
•YES 



LPUBPTR V 

••***X3********«* 

* • 
•MOVE SAVED PUB • 
•POINTER TO END * 

* OP CHAIN • 



->• • 

• D2 ♦ 
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Chart GA. ISAM READ and WRITE (ILBDISMO) 



****A1********* 
» 4 

* ILBDISMO < 



****A2********* 
> IL6DXSM1 * 



•••**A3********* 
•>*SAV£ REGISTEKS 



••••*B1 ********** 

• * 

• * 
*SAVE REGISTERS * 

• * 

• * 



V 

.*. 

CI *. 



•MOVE RECORD KEY* 
*T0 BEGINNING 0P*<- 
* WORK * 



••**«C2 ********** 

* * 
*NOVE RECORD KEY* 

->*TO BEGINNING OF* 

* WORKE ♦ 



**** 

* * 

• Dl * 

* •-> 
• *** 

BLKLOAD 

***D1 *********** 

*WRITE HEW KEY * 
(NO WAITF) 

• * 



V 
.*. 

El *. 
.* *. 

.♦ * 

*. INVALID KEY 



**** I **** 

* * l->* * 

* D2 * * DI * 

* *— 1 * * 
**** I **** 

INVKEY V 

*«***D2********** 

* * 

* RESTORE * 
>• REGISTERS *< 

* * 

* * 
***************** 



****E2********* 



_ 




* 




*. .* 






*N0 












• *** 








* * 








* F2 * 








* * , 


' 1 




**** 


• ♦. 




GBOlAl 


Fl * 




IBERR 




*. 


****F2********* 




*. YES 




ERROR 




>• ILBDISEO • 




,* 


* * 


^ 


* 




*. •♦ 








>N0 







* Gl * 

* •-> 

**** 



••••*G1* ******** 



****G2********* 
» « 

> ILBDISHt * 



****H1* ******** 

» 4 

* RETURN 4 



•****H2********* 

* 

*SAVE REGISTERS 

* 
•••*••**•**••••• 



***J2* ********** 



NO . 


* *. 


r* 


ERROR . * 


*. .* 

*. .* 


*•** 


*. •* 


* * 


• YES 


* Gl * 


**** 
l.>* * 




**** 


* P2 * 



*8AVE REGISTERS * 



****A5********* 
» « 

> ILB0ISM3 « 

¥ * 

***••********•* 



* * 

* * 
*SAV£ REGISTERS * 



•**C3* ********** 



***CI»*********** 

» READ KEY * 
TWAITF) 



.* 
.* 
*. BLOCKED 
*. 
*. 

*. .* 
*N0 



.* 



• * *• 
YES .* *. 
*. INVALID KEY .* 



V 
.♦. 

Dtt *. 

• * *i 

.* * 

>. INVALID KEY 

*. .* 

*. .* 



♦NO 

***• I 

* EU * I 

* •_>| 
**** V 



**** 

* • 

* D2 * 

* * 
*•** 



****0S********** 



ERROR 






*. YES 
.*---l 



***ES*********** 

» * 

GET 



*. .* **** 
*YES • • 
I ***** 61 • 
L.>* * * 
* F2 ***** 



*N0 

L>**-' 

* Gl 



**** 
» * 
► F2 • 



..••'■-J 



**** 

* 4 

* Ett < 

* * 
**** 



****G3* ******** 

> 4 

> ILBDI8MS « 



••***GS* •***••*• 



****H3********* 
SAVE REGISTERS 



••••HS********* 

• USER EOF * 

* PROCEDURE * 



V 

.*• 
J3 *. 
.* *. 
.* *. NO 

*. BLOCKED .* 

*. .* 

*. .* 

*. .* 

*y£s 



***X3*********** 
POT 



..«.—..>* . 



ERROR 



.*• 



*. .* **** 
•HO * . ♦ 
I ***** F2 * 
l.>* * * 

* Gl ***** 
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Chart GB. ISAM Error (ILBDISEO) 



****A1********* 
» « 

> ILBDISEO « 



****A2********* 
• * 

» ILBDISEl * 



* B^K foimcR 



*SAV£ REGISTERS * 



,*OSER ERROR *. 
PROCEDURE . 
*. I* 
*. .* 



02 *. 
.♦ ♦. 

NO .'USER ERROR *. 

•. BYTES •• 

*. •* 



*8ET ERR(» CODE • 
>*MD ADDMSS Of *- 
*DTr-8 III REG * 



EJ01A3 



C5 *. 
.* *. 

.*ILBDDBG2 IN*. NO 

->•. VIRTUAL .• 

*. STORAGE .* 



V JCOlAl 
•****D5********** 
♦ILBDDB62 * 

* PROCESS * 

* ABNORMAL * 

* TERMINATION * 



****E5********* 
» CANCEL •<--• » 



•••••r2********** 

•DETERMINE ERROR* 

• AND SET * 

• APPROPRIATE * 
*USER ERROR BXTE* 

• TO 1 * 



USER 

*****a2********** 

* FORWARD ERROR ' 

* BLOCK POINTER 

* AHC BEST ORE 



LOCK POINTIi 



****H2********* 
> USER ERROR « 
* PROCEDURE * 
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Chart GC. ISAM Start (ILBDSTRO) 



> ZLBDSTRO 4 



> * 

» ZLBD8TR1 * 



• * 
*GET ADDRESS OP * 
•XEYAAG AND KEY * 

* LENGTH * 



•***B2* ******** 
MOVE 'KEY' TO 



*****C1********** 
DENTIPIER* 



*HOVE II 

*%x§ w 



TH ZEROS 



****D1********* 



****£!********* 

ISSUE $$BSETL 
MACRO 
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Chart HA- DA Close Unit (ILBDCRDO) 



•SAVE REGX8TSRS • 



♦C3« 



"l^ifir^^SSSS? 



* TO 8C£ 



****K3********** 
SET REC<MU>>1 • 



REOZi 



****a3********* 

» RETURN < 
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Chart HB. DA Close Unit for Relative Track (ILBDRCRO) 



• ILBDRCRO « 



****B3********* 
SAVE REGISTERS 



****C3********* 
UPDATE EXTENT 



•MOVE LOW LIMIT * 
•OF NEXT EXTENT • 
• TO SEEKADR • 



• SET RECORD- 1 

* 

•*****•**••**•*• 



****Ii>3********* 
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Chart HC, DA Extent Processor (ILBDXTNO) 



• A3 « 



****A1********* 
» * 

» ILBDXTNO * 



.* *. 

.* SAVED *. MO 

*.SySNO. ■ SYS .• 

* . NO. . * 



CHX6EQ .*. 

B3 * 



* GET PREVIl 

>*va£ue op m 

* increase 1 



OUS 
I AND 
BV I 



Dl *. 

.* *. 

> ALREADY « 

PROCESSED 7 

». EXTENTS .« 

• • . • 



UPDATE COUNTER 



YES 



•****02********** 



«•*•••**••*•••*** 



****E2********* 
*RETORN (PROCESS* 

• NO MORE * 

♦ EXTENTS) ♦ 



*****P1** •••••••• 

• * 

• POINT TO 1ST * 
•BYTE OF EXTENT ♦ 

• STORE AREA * 



*. 1ST EXTENT 



****C3********* 
SET K ■> 



* * 

* STORE EXTENT • 

* SET TERM CODE • 

* SAVE SYS MUM * 

* • 



V 
.*. 

E3 *. 
.* *. 

NO .* ♦. 

r ♦. 1ST tXTEMT .* 

♦ . .* 

*. .* 



F3 

.* 

REJl^ __ 

SPECIFIED 



*****B<) ********* 



* GET PREVIOUS 
>* VALUE OF M 



*****Cl« ********** 

• • 

*CUrS£HT EXtENT * 

* STORE FIELD * 



«****QX********* 

:^"i$$fe^f§R"' 

* ILBDDSRO 



• • 


***G3******* 


*** 

* 


*INITI LLIZE SEEK* 

* &lls * 



POIWr TO 1ST 

EXTENT STORE 

FIELD 



RETURN 

»****H3********* 



RESTORE 
I8TEHS^-1 



1ST EXTENT . *- 
*. .« 

*. .* 
*. .* 

*NO 

* A3 * 



->*SAVE SYS NUMBER* 



****J3***«***** 
*RETURH PROCESS • 

♦ NEXT EXTENT * 

• 4 



* A3 * 
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Chart HD. DA Sequential Read (ILBDDSRO) 



» ILBDDSRO 4 



*****B1 **••**•*** 

* • 
*SAVE REGISTERS * 
« AND POINT TO ♦ 
♦CURRENT EXTENT ♦ 

* • 



• *** 
••*C1* •****••*♦* 



READ ID 
* « 



. *. 
Dl ♦. 



• **• 
» D2 4 



••***D2* ******** 

* 

->* 



RESTORE 
REGISTERS 



****D3********* 
•BR TO USERS EOF* 
->* ROUTINE * 



*. .* 
♦ . .* 
•NO 



*HOVE IT TO TBI 
>* ACTXiy riELD 



NO RECORD 

FOUND 

.CONDITION. 



HHOlAl 

•****G1^^*^^^^*** 
•ILBDIDAO • 



HI *. 

.• SEEK •. 

.•ADDR WITHIN*. 

CURRENT 

•. EXTENT .• 

• . .• 



P2 *. 

.* *. 
.* WRONG *. NO 
->*. LENGTH RECORD.* 



L 



F3 ♦. 

.* *. 

.* *. « 

->•. DATA CHECK . *- 
• . .* 

•t •• 
• • .♦ 
• YES 



• CALL ILBDOAEO • 



NXTXTNT 

*««**|{2******«** 



* >^GET NEXT EXTENT' 



.•• 

•"' *•* 

.*' NOHORE **. YES 
->*. EXTENTS ,*'—-, 



Wtumsr: 



.* 



.* 



**** 

• • 

* 02 • 

• « 
•••* 



•.CONDITION. • 1 
• • .• V 

». .• •♦•♦ 




►NO • • 

• CI • 

• • 




***• 


RETURN 

•♦•♦•Kl^ 




• R£S^ 

* REGIi 


FORE * 

5TERS • 



****K2********* 

• * 

>* RETURN i 
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Chart HE. DA Sequential Read for Relative Track (ZLBDRDSO) 



> « 

> XI.BORD80 * 



•••**B2********** 



.♦. 

C2 •. 



• E2 • 



••***D2********** 

•STORE SYMBOLIC • 
•KEY XMTO ecu's • 



|^eEif%s»i^ 



* E2 • 

• •-> 

• ••• 



•••E2^^*^*^**^^^ 

» ♦ 

REM) ID 



• •• 

ri •• 

.• •. 

.* *. YES 

•.RECORD rOUNO .• . 

*• •• 
*. •* 
• . .* 
•HO 



02 •. 
.• •. 
YES .• •. 

._-_•. for .i 



• liXIT TO USI 

* EOF ROUTll 



•• •• 
• . .• 

• NO 



•••••H2^^*^^^^**^ 



• ••• 
->• • 

• B2 • 



•• •• 

•. .• 

*. .* 

•MO 

• ••• 



• 03 • 

• •-> 

•••• 



•••••63^«*****^^* 



• • •• 



••••GS*^*^**^^^* 
FIELD • 



V 

• •• 
H3 •. 



tRELJ^Svi I8ack : •:**K8ic8*^*'>!5! — >:***IBm 
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Chart HF. DA RZERO Record (ILBDFMTO) 



> ILBDFMTO * 



SAVE REGISTERS 



* HOVE LOWER 



***D1 *********** 

* * 

-> WRITE RZERO 

* * 

«•***••••*•***•* 



••***E3** •***••*• 



• BYTE 



8 s?8S : >:6^.J^?8=tiG°s : 



« EJ01A3 

*****r3********** 

•$$BCOB£R * 
*-*-•.*.*-•-*-•-• 
•EXECUTE SYSTEM * 
* ERROR PROCEDURE* 



, V HHOlAl 
*****Gl********* 
*ILBDIOA0 
*-•-*.*-•-*-*-*- 



****62* ******** 
» « 

► RETURN * 



•***G3********* 
* CANCEL JOB « 
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Chart HG. DA RZERO Record for Relative Track (ILBDRFMO) 



****A2********* 
> ILBDRFMO * 



****B2********* 
SAVE BE6I8TER8 



•••**C2**«****** 



• * 

• D2 • 

• •-> 

• *«• 
FORMAT 

***D2*** ******** 



WRITE RZERO 



***E2** ********* 
> • 

WAITf 



F2 *. 
.* *. 
. * EOF * . 
*. (OUTSIDE 

♦. bxtehtT .* 

**. .*' 

•YES 



ADD 1 TO 
TRKADDR 



****H2********* 

» 4 

> RETURN * 
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Chart HH. DA Increase SEEK Address (ILBDIDAO) 



•***A1* ******** 
> I 

* ILBDIDAO * 



****B1********* 



V 

. *. 

CI *. 

* i 

3330 



»C2* 



IH26Te .*. 
D2 < 



IH26T18 



.*H2 GREATER *. YES 
>. THAN H8 .* 



*. 
ER 
9 

,*' 



.*k2 GREATER**. YES • 
->*. THAN RIO .* >* SET H2 ■ 



M *. 

.* *. 
.* *. NO 

— >*. 2321 .* 1 

♦ . .* 1 

*. .* V 

*. .* *••* 
♦YLS * • 

1 

OEV2321 .*. 

Bit *. ••***B5********** 

.* *. * * 

.*H1 GREATER *. NO * • 

*. THAN 3 .* >* ADO 1 TO HI • 

*. .* * * 



I**** 
->♦ * 

• Gl • 



SET HI - 



.*C2 GREATER *. NO 

*. THAN 8 .* 

*. .* 



*****05********** 



>* ADO 1 TO C2 



L 



**** 
>* * 

• Gl • 



2311 

'♦. .*" 
*. .* 
*»E8 



• SET C2 ■ 



INC1H2 V 
* 
* ADD 1 TO H2 



Fit *. *****rs********** 

.* *. * * 

.*C1 GREATER *. NO * * 

*. THAN 18 .* >* ADD 1 TO C2 * 

.* * • 



* Gl * 

• •-> 

**•• 



*•** 

* * 

* G2 * 

* *->J 
**** 

.*. 
62 *. 



.* 
*. .* 
• YES 



u. 



* 
* 
->• SET R8 ■ 143 



IC2QT18^ 

* 
* 
* SET CI 



• *** 

• Gl * 
♦ 
*•** 



C2198 



.•C2 GREATER *. NO 

THAN R8 .* > 

*. .* 



»**H3*******« 
ADD 1 TO C2 



ADD 1 TO B2 



Gl * 

* 
**** 



Gl * 
• ••* 



* SET C8 ■ *<- 



****K1********* 
ADD 1 TO H 



3330 



.*. 

K2 *. 
• • *. 
YES .* 4 

». ci-1 

*• «< 

*. .* 



DEV3330 .*. 


J3 *. 


.* *. 


..>*:*'^lHgr!lf" *:*!!!. 


*. .* 


♦. .* 


*. .♦ 


• NO 



IC2GT2S0 
>* SET C2-0 Cl"l • 



L 



•*** 
>* * 

• 01 ♦ 



****K3********* 
ADD 1 TO C2 



Gl ♦ 

* 
•••* 
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Chart HI. DA READ and WRITE (ILBDDIOO) 



****A1********* 
» t 

> ILBDDIOO * 



* • 

• * 
*SAVE REGISTERS * 



* NXflONM. * 
•STANDARD COBOL * 

* WRITE/REWRITE * 



*HOVE IN SEEKADR*<- 



♦ POINT TO KEY • 



WRITE AFTER .♦- 
♦ . .♦ 



*SET KEY ADDRESS* 

• IN • 

* SEARCR-KEY-EQ * 

• ecu ♦ 

* • 



V 
• •• 

Jl *. 



.* SPANNED *. NO 
* . RECORD . * 1 

♦YES ♦ » 
***** 05 ♦ 



****A3 ********* 

> « 

> ILBDDI02 « 



ILBDDI03 



*•** AS* ******** 
> ILBDDIOU 



*****B2********** 

* * 

• * 
♦SAVE REGISTERS * 



*****B3* ********* 

* * 

*SAVE REGISTERS * 



*****B<t ********* 

* 

*SAVE REGISTERS 



•****BS* ******** 

* 

*SAVI: REGISTERS 



*****C2********** 

* SET UP TO DO ♦ 

* AMERICAN • 

* NATIONAL * 

* STANDARD READ * 

* KEY • 
***************** 



*****C3********** 



***************** 



*****Cit********* 



•****C5********** 



****«******•**•*• 






*****02**** ****** 

* INDICATE NOT * 

• AMERICAN • 
-* NATIONAL * 

• STANDARD * 

* WRITE/REWRITE * 



**** 

* * 

* E2 • 

* *— , 
**** V 



.* 



E3 ♦. 
.* *• 
.* SEEKADR ■ *. YES 

->*.SAV^ SEEKADR.* 

*. .* 
*. .* 
*. .* 
• NO 



RECORD . * 1 

■*. .*•* I 



**** 

• * 

• H2 • 

• • 
**** 



*****G2**** ****** 



*•** 

* * 

• H2 * 

* * 
**** 

• ****)j2*** ******* 



«••* 

• • 

• J2 • 

• * 
**** 

*****J2* ********* 



***************** 
**** 



*****G3********** 

* * 

* * 
*GET NEXT tXTENT*<- 



u 



» G3 * 
» * 
**** 



.• *. 
•• *. NO 

•.TERMINAL CODE.* n 

• . .♦ J 

♦ . .♦ V 

•. .• **** 
*YES • « 
♦ K2 • 



•.THIS EXT 



**** 

* 

• J3 

* 
**** 

*****J3********** 



***************** 



••••X3***^*^^** 

* USER INVALID * 

• KEY ROUTINE * 



• *•* 



*•** 

• * 

• E<« * 

• *-_, 
*♦** V 

.*. 
sn •. 

.•SEEKADR*. 
.* COhiPARE D *. GT 

*.T0 UPPER LKT .* , 

*.TH1S EXT .♦ 1 
*. .♦ V 
•. .* **** 
*LT • , • 
OR EQ • G3 • 



• •** 



. *. 

P« *. 
.*SEEKADR*. 
.♦ IS VALID ». NO 

. FOR DEVICE .* 1 

*. TYPE .♦ I 



• *** 

* 4 

* J3 « 

* • 
*•** 



*****llii********** 

• SAVE SEEKADR * 

• AND KEY IF • 

• AMERICAN * 

• NATIONAL • 

• STANDARD READ • 
***************** 



J« •• 
.• • 
.* 
• . ERROR 
*. 

*. . * 
*. .* 
• YES 



HK01A2 

****{((«•«*•*••** 
• EXIT TO * 
> ILBODAEO * 



• E5 • 

* *— , 
.**. ^ 

*****£$*******«** 

*S£T KLY ADDRESS^ 

• IN • 

♦ READ-KEY-AND- » 

* DATA CCW * 



*****FS********** 

*PUT RECORD SIZc;* 

• IN BYTES It AND • 

• 5 OF lOASEA * 



• *** 

* 4 

* G5 « 



G5 *. 

.•'nATL STDD'^. NO 
• .WRITE/REWKITS. • 



, ,* ***• 
•YES • « 
I ***** J2 < 

* E2 ***** 

• • 
**•• 



*****JS* ******** 



****KS********* 
I t 

* RETURN « 



•GT 
^_OR*EQ*^ 

* Ett * 
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Chart HJ. DA READ and NRITE for Relative Track (ILBDRDIO) 



* START * 



****B2********* 
SAVE REGISTERS 



SAVE REGISTERS 



'KoSr'^/8° 



COMI t 



MOVE IN 
RIIATZVE TRACK *<' 
ADDRESS 




•****E1********** 

• • 






: sYg§i2lc^gEy : 








• * 






' 




••• 

Fl *. 




.* *• 




.* *. YES 

* . SPANNED . * 


.->: isg'xgf AJSg : 


*. .* 


• DATA ecu * 


*. .* 




•NO 






CHXURAFT .*. 


' 


' 


Gl *. 


0****02********** 


• • *• 


* * 


.* *. YES 
•.^WRITE ATTER^.* % 

'♦. .♦" V 

•. .* •••* 


:s!ii"!N"fgx§iA : 


• • 


•NO • ♦ 






• CI • 












•••• 






<——-——"" 


•"—-"——' 


STOREKEY ' r 




•••••Hl*"^^^^^**^ 








: iiS8?H'^ h% : 




• cc • 










1 




CHKU8A8I .•. 




.♦''amer*'^. 




"^.•:jR»i>Rl5S?T|> 






•••• •. ,* 




• • ♦*E8 




• Et • 1 •••• 

* • l->* • 






•*•• • At • 




• • 

• *•• 





•••* 

• • 

• A« ♦ 
*••• V 

..*"'*'*••. 
.•KEY - SAVED*. NO 

•• KEY .• 

• • •• 

•• •* 
• . .• 
•YES 



I 



.• SA EQUALS •. NO 
SAVED SA ..• — i 



• • .• 

• . .* 
•YES 



*••• I 

• ca • I 

• •-H 

••*• V 
R01« ..*. 



• . 



cu 

» 
SPANNED 



''*:*IH 
,* 

*, ,* 
*, .* 

• NO 



•••••Dtt^*^****** 

?VE KEY IN 
OAREA * 8 



• move key into 

• Tec — 






•i^S'$8g"5ftlfr • 



HK01A2 
BRR(» 

••••F5^^^*»^^*« 



iEI&SaIE 



•• •• 

*. «* 

•NO 



USASIRO .•. 

00 *. 



8SA 



•••••6S*^*^^*^*** 
.•'ANERICAM '*. YES • SAVE SEEXAOR • 

•.READ .• • . ^ ^^^^^^^^ • 

f. ,• ***************** 

•NO 



****jn********* 
» « 

* RETURN « 
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Chart HK. DA Error (ZLBDDAEO) 



TMN8 

NO •! 
>?i 



** •* 
*VES 



.!S..:**"|rf||<'«"*:. 






JPOIHT|^JO^I.R0« . 



pjgglxia^": 






1: 



Jl 









CANCIL *<—' 
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Chart HL. VSAM Initialization (ILBDINTO) 



• ILBOIKTO 



PRELUDE V 

•IHITIALIUTION 



INTO ' 



WORK SPACE • 



INT0002 V 

• ZERO FCB * 



PILL.IN riELDS 



IVi* 



♦ » 







fCAtLBD K'liilTJ 
■ OF COBOL PGM 
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Chart JW. SYMSTATE (ILBDMP25) 



» « 

» ILBDNP25 * 
» « 



.♦. 
B2 *. 



r JB01H2 

* RETURN TO * 
>* ILBOMP20 * 

• • 



***«*C2* ********* 

• * 
*USE ADDRESS ZN * 

• 8TXIT PSM IN • 

• ZLBDDB60 • 

• • 
**•*•****••****** 



D2 *. 
• * *• 
.* IS XT IN *. YES 

•.ROOT SEGMENT .* 

*. LIMITS .* 
*. .* 
*. .* 
• NO 



.* IN *. 
.* TRANSIENT *. YES 

*. AREA LIMITS .* 

*. .* 



.*. 

F2 *. 
.*USE Itt *. 
* (ARE WE *. YES 
USING SAVED .♦ 

♦. Ri«y •• 



****62********* 
SET USEIK ON 



* USE START OF 
— >* ROOT AS BASE 
*ANO PRIORITY 



YESTRANS . 

•••**E3********** 

* USE START OF * 
*TRANSIENT AMA * 

>* AS BASE AwT •- 

* LAST NON-ZERO * 

* PRI(»tITY * 



6ETSTATE 

*****BI|********** 

— >• PROCTAB * 

* POINTERS * 

* • 
•*••**•****•***** 



POINTERS FOR 
NEAREST ADDR 



* READ * 

* CORRESPONDING * 

* PROCTAB BLOCK • 

* * 
***************** 



• ••**E(|*********« 

* COUNT THRU « 

♦ BLOCK TO * 

* NEAREST HATCH * 
•FOR ABEND ADDR * 



OOTCDVB . * . 

F4 *. 



USE SAVED • 

FSSS'izigoigo : 



MATCB .* 
'♦YES 



*****6lt********** 

* PUT CARD/VERB * 
*FRgM PROCTAB IN* 
*HES8AGE TEXT IN* 

* BUFFER * 

* • 
••*«***•*****•*•* 



[NT V JBOlAl 

* **«*H<t********** 
•ILBDDBOl • 
•-*-*-•-*.*-*-*-• 

* PRINT STATE * 

* MESSAGE * 



.* Al 
'.OPT 



*. 

N the!* 



JGOlAi 

*****X<»*********' 

:£i!?K!2.,.*-..: 

* FLOW OUTPUT 



>*8ET STATEOUT ON* 



^ JB01H2 
RET V 

****KS********* 
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Chart JX. SRCHPUBS (ILBDMP04) 



» ILBOMPOt 



• GET PUB TABLE • 

* POINTEKS • 



•••••CI********** 

*S£ARCH.PUB FOR * 
* SySOOS ENTRY • 



.*. 
01 *. 



•02********* 



*. .* * foofSK * 

«. .• ••••^•^{{•••••* 



*•••* 

* 


■^iS 


*** 


• 
***** 




• 
*** 



V 
RETURN 
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Chart JY. USE-FOR-DEBUGGIH6 Declaratives Subroutine (ILBDBU60) 
(Fart 1 of 2) 




DO HOUSEKEBPIHG 

t GET tWRX 8PACC 

(IF HOT OBTAINED 

PREVtOUIlV) 
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Chart JY. USE-FOR- DEBUGGING Declaratives Subroutine (ILBDBUGO) 
(Part 2 of 2) 



c 



J 



c 



:) 





ANY 
OEBUG- 
CONTEHTS 



UEiiUa-COHTEHTS 
WILt, UE- 
1 SPACE 



ICBUG-COMTeNTS 

WILL BE 

DETERHINED 

FROM tTBBOTllA 



c 



OGaUa-COHTENTS 

MZU dE SN TO 

•TO' rROCEOURI 

MME 



3 



SET FIELDS 
IN DEBUG- 
CONTEHTS 



c 



J 
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Chart KA. COUNT Initialization Subroutine (Ij:.BDTCOO) 



****A2********* 
» « 

» ILBDTCOO * 



.♦. 



*****C2** ******** 



•*••«•*•**»«**••* 



NO .* TGT POINT *. 

«. TO CHAIN .* 

*. .* 



»*E2********* 

rv 



*****G2********** 



* STORE CHAIN * 
*AODRESS IN TGT * 



*****H2********** 

* INITIALIZE * 

* COUNT CC»1M0N * 

* AREA * 



FORWARD, BACKWARD POINTERS 
NUN&P^Or^B COUNTERS 

poZnI^s to pmSvio 
chain size 
aiatER 



TlOUS CALURS 



TGI PC 
TABLES 



"i 



SET CNTFLG 

SET DECIMAL POINT 

IS COMMA 
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Chart KB. COUNT Frequency Subroutine (ILBDTCIO) 



> t 

» ILBDCTIO < 
» 4 





.•DOES COUNT • 


NO 


* 
IT 


.COMMON EXIST 
*. •• 

♦ . . • 
*. •• 
•YES 

100 .*. 


*— 




.*DOES COUNT * 


NO 


* 


.^ CHAIN EXIST^ 


•— > 



•***D1********* 



********•***••* 



****£1* *••••••* 

GET COUNT 



V 
.*. 

Fl *. 



*****Q], ********** 



CONTEXIT V 

****H1********* 



156 Flowcharts 



Licensed Material - Property of IBM 



Chart KC. COUNT Termination Subroutine (ILBDTC20) 



•***Ai* ******** 

» 4 

• ILBDTC20 * 



.*. 
Bl *. 
.* *• 
.* COUNT *. NO 
*. COMMON IN .*— -n 
*. MEMORY .* 1 
*. .♦ V 
*. .* **** 
•YES * * 

I : «i : 
I •*** 



.* COUNT *, YES 

.ROUTINE ERROR.* 

*. .* 



TCERRRTN JBOlAl 
***C2*********** 
ILBDDBGl 

— > "writF error' — 

* MESSAGE 16 * 



****C3********* 
» « 

> RETURN • 



*•*• 

» 4 

> HI * 



t KDOlAl 

•**E1*********** 
II.BDTC30 

*-..-.....„.. * 

WRITE EXECUTION 

DEBUG 'pMN^'VlLE 

*•*•*•********•* 



. *. 
PI *. 

*. 
NORMAL * 
TERMINATION 
*. 



.* 



TC20EX10 

****F2********* 



*. 



.• 



t JE01A3 
***61** ********* 
ILBDDBG8 

CLOSE DEBUG 

* PRINT FILE * 

* * 

* HI 

* 
**** 

RETURN 9 



*-> 



RETURN 
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Chart KD. COUNT Print Subroutine (ILBDTC30) 



•***A1 ********* 
> ILBDTC30 « 



.*. 

Bl *. 

.* *. 

.* *. \ 

*. CHAIN NULL .*- 

* . .* 

*. .* 

*. .* 

*N0 



STEP2 V 

•****C1********** 

• UPCNTSOM— * 

* UPDATE *<- 

• COUNT-SUM * 



B2 *. 

• ♦ *. 
.* SUMMARY *. 
->*. STATS TO 

*. WRITE .* 



*SET UP HEAD FOR* 
•>* STATISTICS *- 



• ****Blt********** 
• CONVERT * 

* CONVERT ♦ 
->* COUOT-SUN TO • 

•PACKED DECIMAL • 



.*• 



STATEND 

* WRITE 
SUMMARY, END 
8TAT8 VIA * 
ILBDOBGl 



60 BACK TO 

FIRST CHAIN 

ENTRY 



TC3EXIT , 

****E2********* 



RETURN 



STEPS 9 

***ri*********** 

— STEP3RTN~ 




.* *. YES 

->*.END OP TABLE .* 

*. .* 
*. .* 
*. .* 
*N0 



STEPS 

•****H2********* 

UPDATE CHAIN 
POINTERS 



•••**II3********* 

* FREEVIS 
— >*PR£VIOUS ENTRY 



HO 



YES 



:;;liHi§=^---'- "^ 

♦ . 

*. .* 



IR CHAIN.* i 



JBQIAI 

»***»*« 



HRITE A LINE ON 

* DEBUS PRINT • 

PILE 
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SECTION 3: DATA AREAS 



DEBUG COMMON AREA (ILBDDBG7) 

The debug coirinon area resides in subroutine ILBDD6G0 with the DSECT name of DBGOCOM. 
It is used by both the debugging subroutines and the object-time execution statistics 
subroutines. Its format is as follows: 



Displacement 
Hex Decimal 


Field 



4*8 72 
90 lau 


SAVEDBGO 
SAVEDBGl 
ADBGl 


9U 148 


CURRBUFF 



No. of 

Bytes Description 

72 ILBDDBGO save area 
72 ILBDDBGl save area 
t* Address of ILBDDBGl 

•* Subfield Bytes contents 

ERRPARM Error parameter 

1-3 Address of current buffer 



98 152 



STXITSA 



STXIT save area, containing PSW at the time of 
program check (alternate name STXITPSW) 



Subfield 

PSWL 

PSWR 



Bytes Contents 
0-3 Leftmost PSW bytes 
'*-7 Rightmost bytes (bytes 5-7 
named INITAD) 



AO 


160 


Dt» 


212 


D8 


216 


EO 


22U 


El* 


228 


E8 


232 


EC 


236 


FO 


2i*0 


Ft* 


2U<* 


F8 


24*8 


FC 


252 


100 


256 


102 


258 



STXITRO 

STXITR13 

STXITR14* 

FIRST 

LAST 

SAVERIU 

FLTEP 

STATEEP 

FL0W2EP 

SORTSEP 

DSPLEP 

SYMSIZE 

FLAGl 

CSWITCHA) 



52 
4* 
8 
4* 

a 

4* 



Registers 0-12 

Register 13 

Registers 1<* and 15 

Address of highest TGT 

Address of current TGT 

Save register 14* for ABEND outside of 

COBOL program 

Virtual for floating-point subroutine used 

by SYMDKP 

Virtual for STATE entry point 

Virtual for print FLOW subroutine 

Virtual for Sort subroutine 

Virtual for display subroutine 

SYMSIZE 

Switches 



Equate 

Name Code Meaning 

FRST X»80' First time through 

DBGO X*4*o* ILBDDBGO error 

REC X'20' Debug ABENDed: recursion bit 

DBGl X'lO' First time in ILBDDBGl 

DBG2 X*08* In ILBDDBG2 

COBSW X'OU* Current program is not COBOL 

SYMDEAD X'02« SYMDMP is dead switch 

ENDFLOW X*01* Print FLOW when FIRST=LAST 
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Displacement 

Hex Decimal Field 



No. of 

Bytes Description 



103 259 



FLA62 
(SWITCHC) 



lOU 


260 


DBGICODE 


105 


261 


ABCODES 


106 


262 


HEADl 


13A 


3ia 




17F 


i|B3 


HEAD2 


1F8 


604 


FOOTING 


214 


632 


STATERR 


215 


633 


CURRPTY 



1 

1 

52 
69 

121 
28 

1 

1 



Equate 

Name 

STATEMSG 

STATEl 

STATE 2 

SYMIN 

FLOWINIT 

DYNAM 

FLWIRETN 

RANGE 



code 

X»80« 

x«ao« 

X'20" 
X«10' 
X«OB' 
X"OU« 
X"02* 
X*01' 



Meaning 

statement number already printed 

Use register 14 for STATE 

Found first segment 

SYMDMP in core bit 

FLOW already initialized bit 

Dynamic dump mask 

FLOWl return bit 

ABEND occurred outside range of 

SYMDMP (for ILBDDB62) 



Print code for ILBDDBGl 

ABEND codes 

Page eject 

COBOL diagnostic aids 

Triple space 

End of COBOL diagnostic aids 

STATE error byte 

Current priority for STATE 
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DEBUG INPUT FILE 

The debug file is made up of fixed-length 512- byte blocks; a 1-byte field containing the 
hexadecimal value *FF* narks the end of usable information within a block. 

The seven tables described in the following pages exist in the debug file at object time. 
They are accessed by the subroutines of the SYMDMP program. 

See Diagrams 8, 9, and 10 in "Section 2: Program Organization" for the relations among 
these tables and the object-time subroutines. 



PROGSUM 

OBODOTAB 

DATATAB 



D 



PROCTAB 



H- 



CARDZNDX 
SEGINDX 



PROCIMDX 
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PROGSUM TABLE 



The PROGSUM table is the first table on the debug file. It consists of a single 
fixed-length 108-byte entry and contains information about the program and the debug file 
itself. 



Displ 






Dec 


Hex 


Field Name 


Bytes 








PGPROGID 


8 


8 


8 


PGDECLEN 


4 


12 


C 


PGBLl 


4 


16 


10 


PGBLLl 


4 


20 


14 


PGSBLl 


4 


2H 


18 


PGDTFl 


4 


28 


IC 


PGVLCl 


4 


32 


20 


PGINDEXl 


4 


36 


24 


PGENDDTF 


4 


40 


28 


PGENDNDX 


4 


4t» 


2C 


PGDTDVAD 


4 


HB 


30 


PGDTNUM 


2 


50 


32 


PGDTDSP 


2 


52 


34 


PGPTDVAD 


4 


56 


38 


PGCXDVAD 


4 


60 


3C 


PGSXDVAD 


4 


6H 


40 


PGPXDVAD 


4 


68 


44 


PGCXNUM 


2 


70 


46 


PGSXNUM 


2 


72 


48 


PGPXNUM 


2 


74 


4A 


PGSXDSP 


2 


76 


4C 


PGPXDSP 


2 


78 


4E 


PGFPDSP 


2 


80 


50 


PGODONUM 


2 


82 


52 


PGHASH 


2 


84 


54 


PGFIB 


4 


88 


58 


PGLEN 


1 


89 


59 


PGFILL 


19 


Note: The onlv fields 


i that 



SBLl address 
DTFl address 
VLCl address 



Bytes Field Description 
PROGRAM- ID 

Length of Declaratives Section 
BLl address relative to the start of the TGT 
BLLl address relative to the start of the TGT 
relative to the start of the TGT 
relative to the start of the TGT 
relative to the start of the TGT 
INDEXI address relative to the start of the TGT 
End of the DTFs relative to the start of the TGT 
End of the indexes relative to the start of the TGT 
Device address of first block of DATATAB 
Number of blocks in DATATAB 

Displacement in the block of the first DATATAB entry 
Device address of PROCTAB 

CARDINDX 

SEGINDX 

PROCINDX 

in CARDINDX 

in SEGINDX 

in PROCINDX 
Displacement in the block of the first SEGINDX entry 
Displacement in the block of the first PROCINDX entry 
Displacement of floating-point virtual from the start of the 

PGT 

Number of bytes in OBODOTAB* including the unused bytes at 

the end of the blocks 

Identifier to insure match between this debug file and 

compiled COBOL program 

Address of first FIB relative to start of TGT 

Length of PROGSUM 

Reserved for later use 

The only fields that may be zero in this table are PGDECLEN, PGODONUM, and PGFPDSI 
when the referenced areas are absent from the program. For TGT addresses which do not 
exist, the address of the first byte following the previous cell is used because these 
cells are used in calculating the number of TGT cells of a given kind to dump. 



Device address of 
Device address of 
Device address of 
Number of entries 
Number of entries 
Number of entries 
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OBODOTAB TABLE 



The OBODOTAB table is an abstract of the DATATAB entries for all objects of 
OCCURS. ..DEPENDING ON clauses in the program. The OBODOTAB table, if present, 
immediately follows the PROGSUM table and contains one variable-length entry for each 
unique object of an OCCURS. ..DEPENDING ON clause. Each entry begins on a fullword 
boundary within the block. 

The entries are essentially the same as the DATATAB entries for the same name. See 
the entries for elementary numeric items in the format of the DATATAB table. OBODOTAB 
entries differ only in that the card-number field is zero and the renaming information is 
omitted. Table- locators within the DATATAB entries are used to access the OBODOTAB 
entries. See the subscripting information portion in the format of the DATATAB table. 

COUNT-NAME-TYPE FIELD 



Displ 






Dec Hex 


Field Name 


Bvtes 







1 


1 1 




c 


l*c 1+c 




1 


2+c 2+c 


CARDNUM 


3 


5+c 5+c 


MAJMIN 


1 



Field Description 
Count Field: Number of bytes (c) in name field 
Name Field: Number of bytes, varies between 1 and 30 
Count Field: Number of bytes in remainder of this entry 
Card number where name is defined 
Type of Entry (For description of this field see 
corresponding field in DATATAB table) 



VARIABLE ATTRIBUTES FIELD 
For description of this field see corresponding field in DATATAB table. 
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DATATAB TABLE 



The DATATAB table is the third table in the debug file. It iininediately follovs the last 
entry of the ORODOTAB table, if that table is present. Otherwise, it follows the PROGSUM 
table. 

The table consists of two fields, the Count- Name-Type field (shown below) and the 
Variable Attributes field. The Count-Name-Type field has the same format for all 
entries. It varies in length between 7 and 36 bytes. The Variable Attributes field 
differs for each type of entry and is described in the diagrams on the following pages. 

COUNT-NAME-TYPE FIELD 



Dec 



1 
1+c 
2+c 


Hex 



1 
1+c 
2+c 


Field Name 
CARDNUM 


Bvtes 
1 

c 
1 
3 


5+c 


5+c 


MAJMIN 


1 



Field Description 

Count field: Number of bytes (c) in name field 

Name field: Number of bytes varies between 1 and 30 

Count field: Number of bytes in remainder of entry 

Card number where name is defined (contains zeros for 

RENAMES items) 

Type of entry 



Bit 

Bits Settings Meaning 

0-3 lOOOXXXX FD entry 

lOOlXXXX SD entry 

lllOXXXX RD entry 

llllXXXX Index-name 

OOOOXXXX Level description xuider FD 

OOOIXXXX Level description under SD 

OllOXXXX Level description under KD 

OlOOXXXX Level description in Working-Storage 

OIOIXXXX Level description in Linkage 

a-7 XXXXOOOl Fixed length group 

XXXXOOIO Alphabetic 

XXXXOOll Alphanumeric 

XXXXOIOO Variable length group 

XXXXOlOl Numeric edited 

XXXXOllO Sterling report 

XXXXOlll Usage index 

XXXXIQOO External decimal 

XXXXlOOl External floating point 

XXXXIOIO Internal floating point 

XXXXlOll Binary 

XXXXllOO Internal decimal 

XXXXllOl Sterling non-report 

XXXXlllO Alphanumeric edited 

XXXXllll RENAMES (level 66) 
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DATATAB TABLE: 



VARIABLE ATTRIBUTES FIELD 



SD item; There are no variable attributes for an SD entry. 



RE NAMES item (level 66): 

6+c 6+c RENAMES 1 



Bit 

7 



Bit 

Settings 

XXXXXXXl 

XXXXXXXO 



Meaning 

Next DATATAB entry RENAMES 
the same item as this one does 
This is the last (or only) item 
renaming an item 



INDEX name : 

6+c 6+c INDXCELL 



Index cell number in TGT 



FD item: 












6+c 6+c 


DTFNUM 


1 


DTF number 




7+c 7+c 


ACCESFLG 


1 


Access method 












Bit 










Bit 


Settings 


Meaning 








0-3 


OOOIXXXX 
OOIOXXXX 
OOllXXXX 
OlOOXXXX 
OIOIXXXX 
OllOXXXX 


DTFCD 
DTFPR 
DTFMT 
DTFSD 
DTFDA 
DTFIS 








7 


XXXXXXXl 
XXXXXXXO 


Sequential access method 
Random access method 



RD item : 

6+c 6+c LINECTR 



9+C 9+C PAGECTR 



Level Description Item : 



Addressing pareuneters of line counter 
Bit 
Bit Settings Meaning 
0-3 OOOOXXXX BL entry 
OOOIXXXX BLL entry 
OlOOXXXX SBL entry 
4-15 Displacement from BL 

16-23 BL Number 

Addressing parameters of page counter 
(same form as addressing parameters above) 



Variable attributes for level description items are divided into two portions: 
(1) the type-dependent portion, (2) subscripting information portion. 
The subscripting information portion is the same for all level description item 
entries. It follows and is described after the type dependent portion descriptions 

(1) Type Dependent Portion of Level Description Item : 



FIXED LENGTH GR OUP: 

6+C ■6+C IDKFLD 3 
9+C 9+C LVLRDEFN 3 



Addressing parameters (same form as above) 
Bit 
Bit Settings Meaning 
0-5 Normalized level nxurber 

6 xxxxxxlx REDEFINES 
7-23 Object time virtual storage size 

(in bytes) 
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DATATAB TABLE: 



VARIABLE ATTftlBUTES FIELD (Continued) 



VARIABLE LENGTH GROUP t 

6+c 6+c 

9+c 9+c MAXSIZE 



12+c C+c VLCNUM 



3 Addressing parameters (same form as above) 
3 Bit 

Bit Settings Meaning 

0-5 Normalized level number 

6 xxxxxxlx REDEFINES 
7-23 Maximum object time virtual storage 

size (in bytes) 
2 Bit 

Bit Settings Meaning 

IXXX ODO Master 
1-3 Unused 

U-15 VLC number 



ELEMENTARY. ALPHABETIC. ALPHANUMERIC. REPORT^ EDITED, STERLING. EXTERNAL FLOATING POINT ! 



6+C 
9+C 



6+c 

9+C JUSTRGT 



INTERNAL FLOATING POINT ; 
6+C 6+C 3 

9+c 9+C FLPTYPE 1 



10+c A+C 



Addressing parameters (same form as above) 
Bit 
Bit Settings Meaning 
0-5 Normalized level number 

6 xxxxxxlx REDEFINES 

7 xxxxxxxl JUSTIFIED RIGHT 
8-23 Object time virtual storage size 

(in bytes) 



Addressing parameters (same form as above) 
Bit 

Bit Settings Meaning 

0-5 Normalized level number 

6 xxxxxxlx REDEFINES 

7 XXXXXXXO COMP-1 
xxxxxxxl COMP-2 

Unused 



BINARY. INDEC. INTERNAL DECIMAL. EXTERNAL DECIMAL ; 
6+c 6+c 3 

9+c 9+c NUMINFOl 1 



lO+c A+c 



Bit Settings 
0-5 

6 

7 





Addressing parameters (same form as above) 
Bit 

Meaning 

Normalized level number 
xxxxxxlx REDEFINE 
xxxxxxxl S in PICTURE 
IXXXXXXX Leading sign 
OXXXXXXX Trailing sign 

1 XIXXXXXX Separate sign 
XOXXXXXX Overpunch 

2 XXIXXXXX Significant digits left of 
decimal point 

XXOXXXXX No significant digits left 
of decimal point 

3 XXXIXXXX Significant digits right of 
decimal point 

XXXOXXXX No significant digits right 

of decimal point 
t»-8 If bit 2 equals 1, number of 

digits to left of decimal point. 

If bit 2 equals 0, number of digits to 

right of decimal point. 
9-13 If bits 2 and 3 both equal 1. 

number of digits to right of 

decimal .point- If only bit 2 or 

bit 3 equals 1, number of Ps in 

PICTURE 
m-15 Unused 
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DATATAB TABLE: 



VARIABLE ATTRIBUTES FIELD (Continued) 



(2) Subscripting Information Portion of Level Description Item ; 

This portion of the Variable Attributes section begins immediately after the 
type-dependent portion. 

It ranges in size from 1 byte unsubscripted item to a maxiirum of 20 bytes for an 
item belonging to 3 variable-length gruups. 

1 Guide to RENAMES and subscripting 

Meaning 

This item is renamed. The 
next DATATAB entry renames it. 
This item contains an ODO clause. 
Item requires at least 1 subscript. 
OCCURS clause connected with the 
most inclusive or only group; or 
elementary item contains an ODO. 
Item requires at least two subscripts 
OCCURS clause connected with the 
less inclusive group of 2 or the 
middle inclusive group of 3 or 
elementary group contains an ODO. 
Item requires 3 subscripts 
OCCURS clause connected with the 
least inclusive group of three or 
elementary item contains an ODO. 

Meaning 

Most inclusive group of 3 or only group 

Less inclusive group of 2 or middle 

inclusive group of 3 

Least inclusive group of 3 

If any of these bits equals 1, bytes 2 and 3 of the 
group length information for the associated group 
contain a VLC number rather than the length of 
the group. 



Bit 



Bit 

Settings 

IXXXXXXX 


1 
2 
3 


XIXXXXXX 
XXIXXXXX 
XXXIXXXX 


5 


XXXXIXXX 
XXXXXIXX 


6 

7 


XXXXXXIX 
XXXXXXXl 


VLC information 
Bit 
Bit Settings 

IXXXXXXX 

1 XIXXXXXX 


2 


XXIXXXXX 
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DftTATAB TABLE; 



VARIABLE ATTRIBUTES FIELD (Continued) 



1st subscript 
(if present) 



2 Number of occurrences (Maxiiruin number if ODO) 
specified in OCCURS clause governing this item. 

2 Displacement of next occurrence governed by OCCURS 
clause (See Note) 



2nd subscript 2 
(if present) 2 



Number of occurrences (as above) 

Displacement of next occurrence governed by OCCURS 



3rd subscript 2 
(if present) 2 



Number of occurrences (as above) 

Displacement of next occurrence governed by OCCURS 



1st subscript 
with ODO 
(if present) 



OBODOTAB pointer for most inclusive group or 
elementary item containing an ODO 



Bits 

0-8 

9-15 



Contents 

Relative block number in OBODOTAB 

Displacement within block (in 

fullwords) 



2nd subscript 
with ODO 
(if present) 



2 OBODOTAB pointer for less inclusive group (as above) 



3rd subscript 
with ODO 
(if present) 



OBODOTAB pointer for least inclusive group (as above) 



Note: If the applicable OCCURS clause is on an elementary item« the displacement is the 
machine length of that item; if the applicable OCCURS clause is on a fixed- length group, 
the displacement is the length of the group as stored in the group's DATATAB entry; if 
the applicable OCCURS clause is on a variable-length group, the displacement field 
contains the VLC number for the group. 
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PROCTAB TABLE 



The PROCTAB table contains one 5-byte entry for each card and/or verb in the source 
listing of the COBOL Procedure Division. The table is ordered on three levels: 

1. Priority (in ascending order of independent segments, %«ith the root segirent last) 

2. Card-number within priority 

3. Verb-number within card 

The last PROCTAB entry for a priority has a card and/or verb number of zero. In 
addition f the relative address field contains the address of the first byte following all 
instructions for the segment with that priority. 

For the relationships among this table and the PROCINDX, SEGINDX, and CARDINDX tables* 
see Diagrams 8, 9, and 10 in "Section 2: Program Organization." 



Displ 
Dec Hex Field Name Bytes Field Description 
PTCDVB 3 Card-number and verb-number on source listing 



PTRELAD 



Bit 

0-19 
20-23 



Contents 

Card-number 

Verb-number 



Relative address of instructions for this entry 
within program fragment to which it belongs 



CARDINDX TABLE 



The CARDINDX table is a directory to the SEGINDX table and contains one 5-byte entry for 
each program fragment and one entry for each discontinuity in the COBOL instructions 
within a segment. Entries in the CARDINDX table are in ascending card-number order and 
are accessed by indexing through the table sequentially. 

The CARDINDX table starts at the beginning of a block. 

For the relationships among this table and the PROCTAB, PROCINDX, and SEGINDX tables, 
see Diagrams 8, 9, and 10 in "Section 2: Program Organization." 



Displ 
Dec Hex 




Field Name Bytes Field Description 

CXCDVB 3 Card-number and verb-number of first card 
represented by this entry 



Bits 

0-19 
20-23 



Contents 

Card-number 

Verb-number 



3 3 CXPRIOR 1 Priority number associated with this card 

•» U CXFRAG 1 Relative fragment number within the priority 

to which this card belongs 
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SEGINDX TABLE 



The SEGINDX table contains one 10-byte entry for each program fragment. The table is 
ordered on two levels: 

1. Ascending priority number 

2. Ascending fragment number within a priority 

For the relationships among this table and the PROCTAB, PROCINDX, and CARDINDX tables, 
see Diagrams 8« 9, and 10 in "Section 2: Program Organization." 



Displ 
Dec Hex 



Field Name 

SXPRIOR 

SXRELAD 

SXPTLOCl 



Bytes Field Description 
1 Priority number 
3 Address of this fragment relative to the 

beginning of the segment 
3 Table locator for PROCTAB entry of first 

card number and/or verb-number in this 

fragment 



SXPTL0C2 



Bits 



Contents 



m 



O-IU Relative Block number 
PROCTAB 
15-23 Displacement within block 
Table locator for PROCTAB entry of last card and/or 
verb in this fragment 



PROCINDX TABLE 



The PROCINDX table is a summary index of the PROCTAB table and contains one 10-byte entry 
for each block of PROCTAB entries. PROCINDX entries are ordered by relative block nxirober 
in the PROCTAB table and are accessed by searching sequentially after indexing to a 
starting point determined by the block number from the CARDINDX or SEGINDX table. 

For the relationships among this table and the PROCTAB* SEGINDX, and CARDINDX tables, 
see Diagrams 8« 9, and 10 in "Section 2: Program Organization." 



Displ 
Dec Hex 





Field Name Bytes Field Description 

PXCDVB 3 Card-number and verb-numner of first entry in block 
of PROCTAB table. 



Bits 

0-19 
20-23 



Contents 

Card-number 

Verb-number 



3 3 PXRELAD 3 Relative address of instructions for this 

entry within segment to which it belongs 

6 6 PXDEVADR U Device address of PROCTAB table block related 

to this entry. 
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EXECUTION-TIME TABLES FOR DEBUG OPERATIONS 

The following four tables are built in virtual storage by the SYNDMP subroutines from 
information in the Debug File and the control cards for a program compiled with the 
SYMDMP option. They are used for producing the dump to meet dynamic dump request and at 
abnormal termination. 



DATADIR TABLE 



The DATADIR table is a directory to the DATATAB table and only exists when a DYNAMTAB 
table exists. There is one fixed-length 8-byte entry for each distinct DATATAB block 
which contains an identifier specified on a line-control card. Entries are in the order 
in which requests appeared on line-control cards. 



Displ 
Dec 




Hex 





Field Name 
DDDEVADR 

DDSW 



DDCORE 



Bytes Field Description 

U Device address of DATATAB block in debug 
file 

1 Switch - If bit is equal to 1, the block 

is not in virtual storage. If bit is equal 
to 0, the block is in virtual storage. 

3 Address of DATATAB block in virtual storage 



Note: This table is limited by the 7-bit indexes in the DYLOCNM field of the DYNAMTAB 
table to a maximum of 128 entries. If the maximum is exceeded* a message is produced and 
further dynamic diimping requests are ignored. 
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DYNAMTAB TABLE 



The DYNAMTAB table suinniarizes dynamic dump requests and contains one entry for each 
line-control card. The table entries are composed of a fixed and variable portion. 
Entries are variable in length with a minimum length of 17 bytes. DYNAMTAB entries are 
chained together, and each entry begins with the address of the next entry. The end of a 
group of entries for one program is marked by the DYLASTDY switch. The DYNAMTAB table is 
searched sequentially; the search ends at the entry in which the DYLASTDY switch is on. 

Fixed Portion 



Displ 



7 
8 

14 
17 



7 
8 

£ 
11 



Dec 


Hex 


Field Name 


Bytes 


Field Description 








DYNXTDY 


3 


Address of next DYNAMTAB entry 


3 


3 


DYSW 


1 


Switch 

Name 

DYALL 

DYHEXALL 

DYON 

DYLASTDY 

DYSKPDMP 


Bit Contents 

If U ALL specified 

1 If 1. HEX with ALL specified 

2 If 1, ON specified 

3 If U Last DYNAMTAB entry 

H If 1, No dump - ON value is wrong 


a 


it 


DYCDVB 


3 


Card-number and/or verb-number 












Bits Contents 



DYPRIOR 
DYCOBINS 

DYINSADR 
DYONS 



0-19 Card-number 
20-23 Verb-number 
Priority of this card 

Machine instruction corresponding to card and 
verb 
Address of this instruction in virtual storage 



Only present if 



Name 

DYONl 

DY0N2 

DY0N3 

DYONCUR 



Bytes 
2 
2 
2 
2 



ON specified 
Contents 
Start value 
Increment value 
End value 
Current value 



Variable Port ion 



For each 
request 
for a 
single 
identifier: 



DYIDSW 



DYLOCNM 



For each 

request 

for 

identifier 

THRU 

identifier: 



Switch 
Name 
DYHEXID 
DYTHRUID 

DYERRID 



Contents 

If 1, HEX specified for this request 

If 1, THRU specified (entry is 

5 bytes long) 

If 1, error in this request; 

ignore it 



Table-locator for this identifier, consisting of: 
Bits Contents 
0-6 Entry number in DATADIR to find device 
address of DATATAB entry for this 
identifier 
7-15 Displacement in DATATAB block of entry 
for this identifier 
If. THRU is specif led 9 table- locator (same 
format as above) for identifier which is 
the object of THRU 



Note : A dummy table-locator of hex 'OOOl* is used t© represent TALLY; a dummy 
table- locator of hex •0002* is used to represent SORT-RETURN. 
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PCONTROL TABLE 



The PCONTROL table contains information about each program requesting the symbolic dump 
option within a run unit and consists of one fixed-length 76-byte entry for each' 
program-control card. Entries begin on a fullword boundary and are chained together. 
Each entry is followed by the DYNAMTAB table, DATADIR table, and, if necessary for 
dynamic dumping, the OBOOOTAB table for the program. 



Displ 






Dec Hex 


Field Name 


Bytes 





PCPROGID 


8 


8 8 


PCFILNAM 


7 


15 F 


PCSYSNNN 


1 


16 10 


PCBLl 


4 


20 lU 


PCBLLl 


4 


2<4 18 


PCSBLl 


4 


28 IC 


PCDTFl 


4 


32 20 


PVCLCl 


4 


36 24 


PCINDEXl 


4 


40 28 


PCANXTPC 


4 


44 2C 


PCADYTAB 


4 


48 30 


PCAOBODO 


4 



52 

56 
60 

64 

66 
68 
70 
71 



34 PCACOB 



38 
3C 

40 

42 
44 
46 
47 



PCATRANS 
PCADATDR 

PCDMPLNG 

PCTRLNG 
PCDDNUM 
PCPRIOR 
PCSW 



Field Description 

PROGRAM-ID 

File name of debug file (the default is IJSYS05) 

nnn of SYSnnn for the debug file in binary 

BLl address 

BBLl address 

SBLl address 

DTFl address 

VLCl address 

INDEXl address 

Address of the next PCONTROL entry (if this is 

the last entry, this field contains zeros) 

Address of DYNAMTAB for this program (if there 

is no DYNAMTAB, this field contains zeros) 

Address of OBOOOTAB in virtual storage 

(If OBODOTAB is not in virtual storage, 

this field contains zeros) 

Address of start of overlayable virtual 

storage in root segment 

Address of start of Transient Area 

Address of DATADIR, if present (if there is 

no DATADIR, this field contains zeros) 

Length of overlayable virtual storage in 

root segment 

Length of Transient Area 

Number of DATADIR entries 

Last non-root segment entered (if any) 

Switch 

Contents 



72 



48 



PCPIBl 



Name 

PCHEX 

PCENTRY 

PCPDUMP 

PCMT 

PCDYNAM 

PCRELOC 

PCIOERR 
Address 



Bit 

1 
2 
3 
4 
5 



If 1, HEX specified 
If 1, ENTRY specified 
If 1, PDUMP specified 
If 1, MT specified 
If 1, No DYNAMTAB exists 
If 1, Address (BLl through INDEXl) 
have been relocated 
6 If 1, I/O error found on debug file 
of first FIB cell 
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QUALNAMS TABLE 



The QUALNAMS table is an area overlaying SCANP (ILBDMPll) » in which identifiers are 
entered in a iranner to permit a batched sequential search through the DATATAB table for 
the names requested on line-control cards. The QUALNAMS table contains one entry for 
each identifier named on a line-control card. Each entry is composed of a fixed and 
variable portion. Entries are in the order in which identifiers and names (qualifiers) 
appeared on line-control cards. 



Fixed Portion 



Displ 
Dec Hex 



Field Name 

QCODE 


Bvtes 
2 


Field Description 
Switch and displacement 
Name Bits Contents 
QID If If be< 



QDEVADR 



for an identifier 
QFOUND 1 If Of identifier is not resolved 

If Ig identifier has been found 

in DATATAB 
QTHRU 2 If If request for this identifier 

followed by THRU 
3-6 Unused 
QDISP 7-15 Contains zeros until identifier has 

been found in DATATAB; then it 

contains the displacement in the DATATAB 

block containing the entry for 

the identifier 
Contains zeros until Identifier has been found 
in DATATAB; then it contains the device address 
of the DATATAB block containing the entry for 
the identifier 



Variable Portion 



For each ONMLEN 
name (qual- 
ifier) QNAME 
making 
up the 
identifier: 



1 Number of bytes (n) in the following 

name 
n Name (qualifier) 

Name Bits Contents 

QNMZONE 0-3 These bits are used as a switch 
to Indicate whether the name has 
been found in DATATAB. When it 



has not been found » they contain 
normal zone bits for the letter or 
number which begins the COBOL name. 
When the name has been found, they 
are set to zero to prevent 
searching for the name again. 
Note: There is no special end marker for the QUALNAMS table, but the address of the last 
byte of the table is entered in the Common Data Area. The search of the QUALNAMS table 
is sequentially forward through the indentif iers, and sequentially backward within an 
identifier entry, from the most inclusive to the least inclusive qualifier. 
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CONTROL BLOCKS FOR VSAM 

The following two control blocks are required to process input/output requests for 
VPAM files. 



VSAM FILE INFORMATION BLOCK (FIB) 



The file information block, a portion of the completed object nodule, is used at 
execution time by the ILBDINTO, ILBDVOCO, and ILBDVIOO COBOL library subroutines for 
processing input/output verbs used with VSAM files. The FIB is biiilt by phase 21 and 
completed by the ILBDVOCO subroutine. 



Fixed Portions 

Displacement 
Hex Decimal 




1^. of 

Field Bytes Description 

IFIBID 1 FIB identification codes 

1 1 IFIBLVL 1 FIB level number 

2 2 INAMED 7 External name 
9 9 INAMEDB 1 External name 
A 10 1 Reserved 

B 11 I0R6 1 Organization 



X'l' 



Codes 

Bits 
0-7 



Equate 
Name 
lORGVPS 
lORGVIX 



Bit 

Settings 
1000 1000 
0100 1000 



Meaning 

VSAM ADDRESSED SEQUENTIAL 

VSAM INDEXED 



12 



lACCESS 



ACCESS MODE 



D 13 IRCDMODE 1 
E lU ISWl 1 



15 



16 


22 


IRECLEN 


2 


18 


2U 


IRECDBL 


2 


lA 


26 


IRECNBL 


1 


IB 


27 




1 


IC 


28 


ISTATDBL 


2 


IE 


30 


I8TATDDN 


2 


20 


32 


ISTATLDN 


2 


22 


34 




1 


23 


35 


IKEYNO 


1 


2U 


36 


IKEYFNTL 


2 


26 


38 


IPSWISW 


1 



Code; 

Bits 
0-7 



0-7 



Equate 

Name 
Iaccseq 

lACCRAN 
lACCDYN 



Bit 

Settings 
1000 0000 
0100 0000 
0010 0000 



Meaning 

SEQUENTIAL 

RANDOM 

DYNAMIC 



IRCDFIX 1000 0000 Fixed length records 



Miscellaneous switches 
Codes 



Equate 
Name 
ISOPTNL 
ISSAMREC 



ISSAME 



Bit 

Settings 
1000 0000 
0010 0000 

0001 0000 



Meaning 

OPTIONAL specified 

SA!ME RECORD AREA 

specified 

SAME RECORD Specified 



Reserved 



Number of bytes in longest 01-entry 

Displacement in T6T of record's first base locator cell 

Number of base locators for RECORD AREA 

Reserved 

Displacement in T6T of base locator for STATUS data- name 

Displacement from base locator of STATUS data-name 

Length of STATUS data -name 

Reserved 

Number of entries in key list 

Length o£ each entry in key list 

Miscellaneous switches 
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Displacement 
Hex Decimal 
27 39 
2H 40 
2A 42 
J8 56 

3C 60 
40 64 
44 68 
48 72 


Field 

ipSWNO 

IPSWENTL 

IMISCAD 

IXEYLSTA 
IPSWLSTA 


No. of 
Bytes 

1 

2 

14 

4 

4 

4 

4 

16 


Description 

Number of entries in password list 

Length' of each entry in password list 

Reserved 

Address in variable length portion of FIB for 

miscellaneous clauses 

Reserved 

Address of first key list entry 

Address of first password list entry 

Reserved 


Variable Length Portion t 




Supplementary 


Information for 


miscellaneous clauses (one for each clause) : 


Displacement 
Hex Decimal 



Field 
IMSWl 


Mo. Of 

Bytes 

2 


Description 
Switch bytes 

Code: 

Equate Bit 
Bits Name Settinas Meaning 
0-7 IMRREOV 1000 0000 RERUN at end of volume 
8-15 Reserved 


2 2 

6 6 
8 8 


IRERUNI 
IRERUNN 


4 

2 
8 


RERUN integer (field contains zeros if RERUN not 

specified) 

Slack bytes 

External-name of RERUN clause 



Key List Entry: (one per user-defined key— RECORD/ALTERNATE/RELATIVE) 



Displacement No. of 

Hex Decimal Field Bytes 
KEYSW 1 



Description 
Miscellaneous switches 



1 1 IKEYLDN 1 

2 2 IXEYDBL 2 
4 4 IKEYDDN 2 



code: 



Bits 
0-7 



Equate 
Name 

IKEYCOMP 



Bit 

settings 
1000 0000 



Meaning 

Key is USAGE COMP (binary) 



Length of key data-name 

Displacement of key data-name's locator in TGT 

Data-name displacement from locator 



Password List Entry: (one per password) 







IPSWDIXN 



IPSWDLDN 
IPSWDDBL 
IPSWDDDN 



1 Associated index number 

B none 

1 = primary 

1 Length of password data-name 

2 Displacement of password data-name's locator in TGT 
2 Data-name displacement from locator 
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VSAM FILE CONTROL BLOCK 



The VSAM File Control Block is created by the ILBDINTO COBOL library subroutine, 
is used by the ILBDVIOO and ILBDVOCO subroutines to interface with the VSAM system 
control subroutines. 



It 



Displacement 




No. of 


Hex 


Decimal 


Field 


Bvtes 








FCBID 


1 


1 


1 


FCBLVL 


1 


2 


2 


FOPENOPT 


<t 


6 


6 


FCLOSOPT 


u 


A 


10 




2 


C 


12 


FCOBRTN 


t| 


10 


16 


FUSERR 


4 


14 


20 


FUSELIST 


U 


18 


2U 




6 


IE 


30 


FRECKEY 


1 


IF 


31 


FADVANC 


1 


20 


32 


FENDINV 


4 


2U 


36 




12 


30 


(48 


FOPEHOPS 


4 



Description 

FCB identification code: 'F' 

FCB level number 

Save area for OPEN options 

Save area for CLOSE options 

Reserved 

Address oi COBOL transmitter routine 

Address of USE.. .ERROR declarative 

Address of USE declarative Exit List 

Reserved 

Number of RECORD KEY 

Reserved 

Return address from INVALID X£Y» AT END, or end-of-page 

Reserved for compilation- dependent fields 

Options for VSAM OPEN verb 

Code: 



34 



38 



52 



FCLOSOPS 



56 



FSWl 





Equate 


Bit 




Bits 


Name 


Settings 


Meanincr 


0-7 


FOPIN 


1000 0000 


INPUT 




FOPOUT 


0100 0000 


OUTPUT 




FOPIO 


0010 0000 


I-C 




FOPEXT 


0001 oooo 


EXTEND 


8-15 


Reserved 






16-23 


FOPUERR 


1000 0000 


USE. . . El 



24-31 FTSORT 1000 0000 

VSAM CLOSE options 

Codet 

Equate Bit 
Bits Name Settings 
O^T" FCLLOCK 0001 0000 
8-31 Reserved 

Miscellaneous switches 



Code: 



Bits 
0-7 



Equate 

Name 

FSOPEN 

FSLOCXED 

FSOPTNL 

FSOKACT 

FSEOF 

FSVCORE 



8-31 Reserved 



Bit 

Settings 
1000 0000 
0100 0000 
0010 0.000 
0001 0000 

0000 1000 

0000 0100 



address in FUSERR cell 
Called from ILBDSPTO 



Meaning 

LOCK 



Meaning 
File is open 

File is closed with lock 
optional file not present 
Successful action has 
occurred since open 
Sequential read has 
encountered end-ofi-file 
Main storage to process 
this open has been 
acquired 
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l)i»placeinent No. of 

Hex Decimal Field Bytes 

IC 60 PTRSTMT tt 



Description 



Transin 


ission statement 


switches 


codes 










0-7 


FTKEAO 


0000 


0100 


READ Statement 




FTWRITE 


0000 


1000 


WRITE Statement 




PTREWRT 


0000 


1100 


REWRITE Statement 




PTSTART 


0001 


0000 


START 




PTDELET 


0001 


0100 


DEXETE Statement 


8-15 


FTINVKEY 


1000 


0000 


INVALID KEY 




PTATEND 


0100 


0000 


AT END 




FTNEXT 


0000 


0010 


NEXT 




PTKEY 


0000 


0001 


KEY 


16-23 


FTSRCHQT 


1000 


0000 


GREATER THAN 




FTSRCHEQ 


0100 


0000 


EQUAL TO 




PTSRCHGE 


0010 


0000 


NOT LESS THAN 


2«»-31 


Reserved 









^() 


64 


FSYSCBAL 


4 


(ta 


68 


FSYSCBLL 


4 


48 


72 


FSYSCBNO 


2 


«A 


74 


FXEYLEN 


2 


IC 


76 


FRECCNT 


4 


so 


80 


FFIBAD 


4 


S«l 


84 


FWORKAD 


4 


58 


88 


FRECA 


4 


'SC 


92 


FSAMR&CA 


4 


60 


96 


FSTATKEY 


2 


62 


98 


FLASTREQ 


1 



Address of system control blocks address list 

Address of system control blocks lengths list 

Number of system control blocks (DTP. DCB, ACB) 

Length of KEY data-name 

Record count for checkpoint subroutine, if RERUN 

specified 

Address of Pile Information Block (FIB) 

Address of system-dependent work area 

Address of current record area 

Address of SAME RECORD AREA 

STATUS KEY work area 

Last I/O statement 



code: 





Equate 


Bit 




Bits 


Name 


Settings 


Meaning 


0-7 


FLASTRD 


0000 0100 


READ 




PLASTWJRT 


0000 1000 


WRITE 




FLASTRWT 


0000 1100 


REWRITE 




FLASTSTR 


0001 0000 


START 




FLASTDLT 


0001 0100 


DELETE 




PLASTOPN 


0001 1000 


OPEN 




PLASTCLO 


0001 1100 


CLCSE 



63 



99 



13 



Reserved 
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COUNT PROGRAM DATA AREAS 



The COUNT subroutines use the following 
data areas: 

• The verb translate, verb, and verb text 
tables, contained in subroutine 
ILBDTC30 

• The count table, contained in each 
object module 

• The verbsuin table, space for which is 
obtained dynamically by ILBDTC30. 
There is one table for all program 
units being monitored 

• The count chain* space for which is 
gotten dynamically by subroutine 
ILBDTCOO for each program unit 

• The node count table, which is part of 
the count chain 

• The count common area, which is in 
subroutine ILBDTCOO 

• The debug coxrmon area, which is in 
subroutine ILBDDBGO 

All these data areas are described below 
except the debug common area, which is 
described elsewhere in this section. 



The verb table contains a four-byte 
entry for each COBOL verb, the entries 
being arranged by verb name in alphabetic 
order. Byte one of each. entry contains the 
length of the entry for the verb in the 
verb text table. The remaining three bytes 
contain the address of the verb text table 
entry. 

The verb text table consists of all the 
COBOL verbs in EBCDIC format, listed in 
alphabetic order. 



Count Table 



The count table contains an entry for each 
verb encountered in the source program, in 
the order of its appearance. The format is 
as follows: 

Byte Contents 

Identity code, as follows: 

00 End of table 

01 Procedure-nawne 

02 Verb 

1 Length of rest of entry (n) 

2-U Card number (omitted if byte 0=00) 
5-6 Count-block number (X'OO* if non- 
executable verb) 
7 Pl-code for verb 



COUNT SUBROUTINE TABLES 



or 



Diagram 13 in "Section 2: Program 
Organization" shows the relationship among 
the six tables used by the COUNT 
subroutines. Their formats are shown 
below. 



7 Procedure-name in EBCDIC 
though 
n + 1 



Verbsum Table 



Verb Translate^ Verb, and Verb Text Tables 



The basic input to subroutine ILBDTC30 is 
count table entries, which desbribe the 
occurrence of verbs in the source program. 
These verbs are expressed in Fl-code form 
to save space. ILBDTC30 uses the verb 
translate, verb, and verb text tables to 
translate the Pl-code into the EBCDIC 
characters for the verb names. 

Each verb translate table entry is one 
byte. Its hexadecimal displacement within 
the table corresponds to a unique Pl-code. 
An entry with a displacement of X»25*, for 
instance, represents the verb ACCEPT, the 
Pl-code for which is X*25*. Each entry 
contains eithet X»FF* (if there is no verb 
for the corresponding code) or the entry 
number for the verb in the verb table. 



The verbsum table contains an entry for 
each verb in the CCBOL language, arranged 
in alphabetic order. The format is as 
follows: 

Byte Contents 

0-1 Static verb count: the number of 

times the verb occurs in the 

program. 
2-3 Dynamic count: the number of 

these verbs that are actually 

executed 
((-7 The total number of times these 

verbs are executed. 

For instance, if the source program 
contains three ACCEPT statements, only two 
of which are executed— one twice and the 
other three times, the static count is 3, 
the dynamic count 2, and the total 
execution 5. 
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COUNT CHAIN 



There is one chain element for each program being monitored, 
as follows: 



The format of an element is 



Displacement 




No. of 


Hex 


Decimal 


Field 


Bytes 








TCFORPTR 


4 


tj 


^ 


TCEACKPT 


4 


8 


8 


TCPGMID 


8 


10 


16 


TCTMCNTB 


4 


lU 


20 






18 


2t» 


TCNODNUM 


4 


IC 


28 






2H 


36 


TCNODTBA 


4 


28 


UO 






2C 


UU 


TCPRVCNT 


4 


30 


tie 


TCCHAINL 


4 


34 


52 


TCTGTPTR 


4 


38 


56 







Description 

Forward pointer 

Backward pointer 

Pi:ogram name 

Pointer to count table 

Reserved 

Number of counters in node count table 

Reserved 

Pointer to start of node count table 

Reserved 

Pointer to previous COUNT COUNT TABLE 

Length of this chain element 

Pointer to TGT of program being monitored 

Node count table (variable length) 



Node Count Table 



Each entry is a halfword counter for a count-block in the source program, 
of the entry in the table corresponds to the number of the block. 



The position 



Count Common Area 

There is only one count common area, regardless of how many programs are being monitored. 
The contents of the area are as follows: 



Displacement 
Hex Decimal Field 
TMCNFLG 



TMCNFLG2 



2 


2 


TMCNPLG3 




3 


3 


TMCNDECP 


1 


4 


4 


CNTSUM 


4 


8 


8 


TCAVBSUM 


4 


C 


12 


TCLVBSUM 


4 


10 


16 




4 



NO. of 






Bytes 
1 


Description 
Flags 




Equate 

Name 

CNTFLG 


code 
X*40* 




TCINIT 


X«20« 




CTPROCOF 


X«04* 




INTCRT 


X'lO" 




CNTFLGOF 


X»BF" 




INTCRTOF 


X'EF* 


1 


Flags 






Equate 

Name 

TCERRFLG 


code 
X»80« 




TCSVHDSW 


x*no* 




NEEDSUMS 


X'20» 



Reserved 

Decimal point is comma 

count-sum 

Address of verbsum table 

Length of verbsum table 

Reserved 



Meaning 

Programs being monitored 

First entry bit 

Count percents off 

In a count stabroutine 

Turn off CNTFLG 

Turn off INTCRT 



Meaning 

Processing count error 

Save HEADl switch 

Need count summary statistics 
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Displacement 




Hex Decimal 


Field 


lU 20 


TCSAVR14 


18 24 




30 48 


TMCNCHN 


34 52 


TMCNSV 


7C 124 


TMCN2SV 


C4 196 


TMCNWKl 




through 




TMCNWKP 



No. of 

Bytes 

4 

24 

4 

72 

72 

100 



128 


296 


TCSVHEDl 


121 


lAl 


417 




3 


1A4 


420 




56 



Description 

Save area for register 14 

Reserved 

First chain address of count chain 

Save area for ILBDTCOO and ILBDTC30 

Save area for ILBDTC20 and secondary save area for 

ILBDTCOO 

Mork areas of four bytes each with names 

in the following series: TMCNWl through TMCNWK9 and 

then TMCNMKA through TMCNWKP. 

Note : TMNCNWK2 roust always be on a doubleword 
boundary. 

Save area for HEADl of D6G0COM 

Filler 

Reserved 
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SECTION t»t DIAGNOSTIC AIDS 



This section provides a few diagnostic aids Note : The compiling program-naire, its 

for use in case an execution-time error version numbers, its modification number, 

occurs which is not a user error, such an and the PROGRAM-ID cem be found at the end 

error may produce one of two results: an of the INITI routine in the listing of the 

abnormal termination or an erroneous output program. INITI is at the end of the object 

from a compiled program. module listing. 
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DIAGNOSTIC AIDS FOR PROGRAM OPERATIONS 



EXECUTION-TINE MESSAGES 



The ILBDMVEO subroutine issues the 
following message on SYSLOG. 

C126D IS IT EOF? 



A few messages, not specified by the 
user directly or by the system, may be 
printed during execution of the problem 
program. These messages originate in the 
COBOL library subroutines. 

If the SYMDMP option is in effect, these 
messages are followed by the SYMDMP 
abnormal termination message and dump of 
the Data Division. 

If the SYMDMP option is not in effect 
but the DUMP option is in effect, a partial 
dump is taken from the problem program 
origin to the highest virtual storage 
location of the last phase loaded. When 
this occurs, the eight bytes immediately 
preceding the DTF are destroyed. 

The format of messages C112I through 
C125I is: 

Cmmml SYSnnn filename DTFaddress text 

See Figure 6 for mmm (message number) and 
text. These messages are issued on SYSLST 
and SYSLOG prior to cancellation of the 
job. 

The debugging routines (SYMDMP, STATE, 
FLOW, and COUNT) themselves may, in 
addition to their normal diagnostic output, 
issue messages. The format of these is: 

Cmmml (program-id )text 
( card/verb-nuraberj 

See Figure 7 for mmm (message number) and 
text. These messages are written on 
SYSLST. 



The ILBDSSNO subroutine issues the 
following message on SYSLOG and SYSLST: 



CmOI INVALID SEPARATE SIGN 
CONFIGURATION 



MESSAGE 1 1 


NUMBER 


TEXT 


SUBROUTINE 


+ 4 


C112I 


PARITY ERROR 


ILBDSAEO 


C113I • 


WRONG LENGTH RECORD 


ILBDSAEO 


ClltH 


PRIME DATA AREA FULL 


ILBDISEO 


C115I 


CYLINDER INDEX TOO 
SMALL 


ILBDISEO 


C116I 


MASTER INDEX TOO SMALL 


ILBDISEO 


C117I 


OVERFLOW AREA FULL 


ILBDISEO 


C118I 


DATA CHECK IN COUNT 


ILBDISEO 


C119I 


DATA CHECK IN KEY OR 
DATA 


ILBDDAEO 


C120I 


NO ROOM FOUND 


ILBDDAEO 


CI 2 01 


DASD ERROR 


ILBDISEO 


C122I 


DASD ERROR WHILE 
ATTEMPTING TO WRITE 
RECORD ZERO 


ILBDFMTO 


C123I 


FILE CANNOT BE OPENED 
AFTER CLOSE WITH LOCK 


ILBDCLKO 


C12MI 


CYLINDER AND MASTER 
INDEX TOO SMALL 


ILBDISEO 


C125I 


NO EXTENTS 


$$BC0BR1 



Figure 



6. Execution-Time Messages for I/O 
Error Conditions 
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MESSAGE 
NUMBER 



C150 
C151I 
C152I 
CI 531 

C15UI 

C155I 
C156I 

C157I 

C158I 

C159I 

C160I 
C161I 
C162I 
C163I 

C16U 
C165I 



C169I 
C170I 
C171I 



C172I 
C173I 
C175I 



TEXT 



IDENTIFIER NOT FOUND 
CARD NUMBER NOT FOUND 
VERB NUMBER NOT FOUND 
NO ROOM TO DUMP 

I/O ERROR ON DEBUG FILE 

WRONG DEBUG FILE FORE PROGRAM 
NO ROOM FOR DYNAMIC DUMPS 

INVALID FILE-NAME 

INVALID LOGICAL UNIT 

MISSING PARAMETERS 

INVALID OPTION 

SUBSCRIPTING ILLEGAL 

ON PARAMETER TOO BIG 

FLOW TRACE NON-CCNTINUOUS. 

MORE THAN 10 PROGRAMS 

ENCOUNTERED 

FLOW TRACE IN EFFECT BUT 

NO PROCEDURES TRACED 

SYMDMP/STATE/FLOW/COUNT 

INTERNAL ERROR. EXECUTION 

CANCELLED 

STATE OPTION CANCELLED 

INVALID ADDRESS 

SPACE NOT FOUND FOR THE COUNT 

CHAIN. CONTINUING. 

SPACE NOT FOUND FOR THE 

VERBSUM TABLE. CONTINUING. 

FREEVIS FAILED. EXECUTION 

CANCELLED. 

INVALID COUNT TABLE ENTRY. 

EXECUTION CANCELLED. 



+ 



SUBROUTINE/ACTION 



ILBDMP13 - Dump request on line-control card 

for this identifier is ignored. 

ILBDMP14 - Line-control card with 

non-existent card number is skipped. 

ILBimPlU - The nearest verb number is used 

instead of the specified one. 

ILBDMPll and ILBDMP21 - Data Division dump 

(and sonetimes COBOL statement number 

message) not given. 

ILBDNP12, ILBDMP13, ILBDMPIU, ILBDMP21, 

ILBDMP22, ILBDMP25 - SYMDMP output is 

cancelled for the program. 

ILBDMP12 and ILBDMP21 - SYMDMP output is 

cancelled for the program. 

ILBDMP12. ILBDMP13, ILBDMPIU - Dynamic 

dumping (but not abnormal termination 

dumping) is cancelled for the program. 

ILBDMPll - All SYMDMP output is cancelled for 

program. 

ILBDMPll - All SYMDMP output is cancelled for 

program. 

ILBDMP12 - The option with missing parameter 

is ignored. 

ILBDMPll - The option is ignored 

ILBDMP12 - The subscripts are ignored. 

ILBDMP12 - The number is reduced to 32767. 

ILBDFLWO - Tracing is terminated 

upon encountering an 11th 

PROGRAM-ID. Tracing resumes only upon 

returning to one of the original 10 programs. 

ILBDFLWO - No action. 

Job is cancelled. 



ILBDSTNO - Output cancelled. 

ILBDADRO - Symbolic Dump is produced. 

ILBDTCOO - Count output for the program is 

cancelled for this entry into the program 

unit- 

ILBDTC30 - Verb statistics suppressed. 



Job is cancelled. 
Job is cancelled. 



Note: Messages C150I through C162I may appear interspersed among the SYMDMP control 
cards at the point at which the error is recognized. PROGRAM-ID is specified for 
messages C153I through C162I. For C150I through C152I« the PROGRAM-ID is that of the 
nearest preceding program-control card, and the card/verb number of the corresponding 
line-control card is given instead. 

Messages CI 531 through CI 5 51 may also appear in the midst of the dump output if the 
error condition is not recognized until diunping has started. 

Figure 7. Error Messages from Debugging Subroutines 
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STORAGE LAYOUT 



An example of the general storage usage 
for a COBOL program being executed in the 
background area is given in Figure 8. 

The memory map printed as a result of 
the LISTX option contains the relative 
afdresses of the TGT fields, the literal 
pool, PGT fields, the instructions 
generated from the Procedure Division, and 
the INIT2. INIT3, and INITl routines, in 
that order. (See the publication IB M 
DOS/VS Compiler Program Logic , Order" 
No. LY28-6423, for a discussion of these 
ion of these fields.) The absolute 
addresses can then be found with the 
assistance of the phase map (see Figure 9). 



LOCATING A DTF 



A particular DTF may be located in an 
execution time dump as follows: 

1. Determine the order of the DTF address 
(DTFADR) cells in the TGT from the DTF 
numbers shown for each file-name in 
the GLOSSARY. 

Note: Since the order is the same as | 
the order of FD*s in the Data 
Division, it can be determined from 
the source program whether the SYM 
option was not used (that is, no 
GLOSSARY was printed). 



H- 



— + 



Permanent storage locations used 
by CPU; Communication Region; 

CONTROL {Supervisor Nucleus; 

PROGRAM I I/O Units Control Tables; and 
Transient Area 

INITl 

Working-Storage 
DTF's and Buffers 
TGT 
PGT 

Literals 
Report Writer 
BACK- I OBJECT I Procedure Division 
GROUND I MODULE I (Priority less than 

segment limit) 
Q- routines 
COUNT Table 
INIT2 
INIT3 
Transient Area 

(Nonresident 
Segments) 

LIOCS Modules 

COBOL Library Subroutines 



FORE- 
GROUNDS 
II £ I 

♦The object module is not always first in 
its partition. 

I J 

Figure 8. Example of Storage Used During 
Execution 
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PHASE XFR-AD 


LOCORE HICORE 


DSK-AD 


ESD TYPE 


LABEL 


LOADED 


REL-FR 1 


PHASE* ♦* 07D878 


07D878 07F1FF 


05F OF U 


CSECT 


TESTRUN 


07D878 


07D878 RELOCATABLE! 








CSECT 

• ENTRY 

• ENTRY 

• ENTRY 


IJFFBZZN 
IJFFZZZN 
IJFFBZZZ 
IJFFZZZZ 


07E1C8 
07E1C8 
07E1C8 
07E1C8 


07E1C8 1 








CSECT 
ENTRY 


ILBDSAEO 
ILBD8AE1 


07F078 
07F0C0 


07F078 1 








CSECT 


ILBDMNSO 


07F070 


07F070 1 








CSECT 


ILBDIMLO 


07F018 


07F018 1 








CSECT 
ENTRY 


ILBDDSPO 
ILBDDSPl 


07E578 
07E978 


07E578 1 








CSECT 

ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 


ILBDDSSO 
ILBOOSSl 
ILB0D8S2 
ILBD0SS3 
ZLB00SS4 
ILBDDSS5 
ILBDDSS6 
ILBDDSS7 
ILBDDSS8 


07ECF0 
07EF50 
07EF48 
07F008 
07ED16 
07EDC2 
07EE22 
07EDEC 
07ED46 


07ECF0 1 








CSECT 

ENTRY 
• ENTRY 


IJJCPDV 

IJJCPDVl 

1JJCPDV2 


07EAA8 
07EAA8 
07EAA8 


07EAA8 1 


* UNREFERENCED SYMBOLS 






NXTRN 
WXTRN 


STXITPSN 
ILBDDBG2 






002 UNRESOLVED ADDRESS 


CONSTANTS 










— . __ J 



2. Determine the relative starting 

address of the block of DTFADR cells 
from the TGT listing In the Memory 
map. 



3. calculate the absolute starting 
address of the block by adding the 
hexadecimal relocation factor for the 
beginning of the object module as 
given In the linkage editor map. 



U. Allowing one fullword per DTFADR cell, 
count off cells from the starting 
address found In Step 3, using the 
order determined In Step If to locate 
the desired DTFADR cell. 

5. The DTFADR cell contains the absolute 
address of the desired DTF. 

Note : The procedure for locating a 
secondary DTF Is essentially the same, 
the only differences being that the 
SUBDTF address cells pointed to by the 
PGT are used and that the order of the 
cells is input, output, input/output, 
or input reversed. 



LOCATING DATA 



The location assigned to a given 
data-name may be similarly be found by 
using the BL number and displacement given 
for that entry in the GLOSSARY, and 
locating the appropriate one-word BL cell 
in the TGT. The hexadecimal sum of the 
GLOSSARY displacement and the contents of 
the cell should give the relative address 
of the desired area. This can then be 
converted to an absolute address as above. 



SPECIAL DIAGNOSTIC AIDS FOR DEBUGGING 
SUBROUTINES 



VIRTUAL STORAGE LAYOUT 



The virtual storage layout of the Debug 
subroutines when SYMDMP is in effect is 
shown in Diagram 6. (See "Program 
Organization" section. ) 
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TABLES USED BY SYMDMP 



The status of the tables built or 
referenced by the SYMDMP subroutines may 
reveal how much processing the SYMDMP 
subroutines had done before the dump 
occurred. Each of the tables on the Debug 
File is brought into virtual storage by the 
subroutine or subroutines which access it. 
The OBODOTAB table, however, is brought 
into virtual storage by subroutine ILBDMP21 
and remains in virtual storage throughout 



the execution of the program. The other 
tables, listed in Figure 10, are built by 
the siabroutines themselves froir information 
located in the Debug File. The Debug File 
is designated as SYS005 during compilation; 
but it may be designated according to the 
user's option at execution time. 



Figure 10 shows the tables used by the 
SYMDMP subroutines together with the 
compiler phases or the subroutines which 
use them. 






TABLE 



CARDINDX 



Built by 



Phase65 



Used by 



ILBDMPli), ILBDNP25, 



Location 
Debug File* 



DATADIR 



ILBDMP13 



ILBDMP21, ILBDMP22 



Virtual Storage 



DATATAB 
DYNAMTAB 



Phase 25 I ILBDMP13, ILBDMP21, 
ILBDMP22 

ILBDMP21, ILBDMP22 



ILBDMP12, 
ILBDMP13, 
ILBDMPIU 



Debug File* 






Virtual Storage 



K- 



FLOW 
TRACE 



ILBDFLMO, 
ILBDPLWl 



ILBDFLW2 



OBODOTAB 



H- 



Phase 25 
(if ODO in 
program) 



ILBDMP2I, ILBDMP22 



Virtual Storage 






Debug File, Main 
Storage* 



PCONTROL 



ILBDMPll 
ILBDMP12 



ILBDMPIO, 
ILBDMP12, 
ILBDMPll* , 
ILBDMP21, 
ILBDMP23, 
ILBDMP25 



ILBDMPll, 
ILBDMP13, 
ILBDMP20, 
ILBDMP22, 
ILBDMP2t»« 



1- 



Virtual Storage 



J. 

PROCINDX 

PROCTAB 
^ 

PROGSUM 



QUALNAMS 



Phase 65 
Phase 65 



ILBDMP1U« ILBDMP25 
ILBDMP14, ILBDMP25 






Virtual Storage 
Debug File* 






Phase 65 
ILBDMP12 



ILBDMP12, ILBDMP21 
ILBDMP22 



Debug File* 






ILBDMP13 



SEGINDX 



Phase 65 



ILBDMPltt, ILBDMP25, 



-+- 



Virtual Storage 
Debug File* 



* Note : Each of the tables on the Debug File is read into virtual storage when it is 
used by one of the subroutines. The OBODOTAB table, however, is read into virtual 
storage by ILBDMP21 and remains there throughout the execution of the program which is 
being debugged. 

L « « _«_—.— «„ 

Figure 10. Tables Used by Debugging Subroutines 
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$$BFCMUL 


FH 


01 


A2 


$$BPDUNP 


EK 


01 


J5 


$$BCOBEM 


JB 


01 


B3 


$$BCOBEM 


EL 


01 


Al 


$$BCOBER 


HK 


01 


C3 


$$BCOBER 


HF 


01 


F3 


$$BCOBER 


GB 


01 


C4 


$$BCOBER 


FC 


01 


H4 


$$BCOBER 


EJ 


01 


A3 


$$BCOBER 


EG 


01 


C3 


$$BC0BR1 


EJ 


01 


H3 


$$BC0BR1 


EK 


01 


Al 


ACCP02 


EC 


01 


H4 


ACCP03 


EC 


01 


03 


ACCP04 


EC 


01 


E4 


ACT00002 


HN 


01 


01 


ACT00004 


HN 


01 


El 


ACT00680 


HN 


01 


C2 


ACT00700 


HN 


01 


Fl 


ACT00704 


HN 


01 


F2 


ACT00736 


HN 


01 


Gl 


APARTN 


JU 


01 


02 


APWOTEXT 


FA 


01 


E5 


ASANDTVT 


FA 


02 


C2 


BASEADDR 


HM 


01 


CI 


BEFTSTVU 


FA 


01 


G4 


BIGTEST 


FA 


05 


Al 


BIN02 


AA 


02 


Al 


BIN03 


AA 


02 


A2 


BIN04 


AA 


02 


A3 


BIN05 


AA 


02 


A4 


BIN06 


AA 


02 


A5 


BIN07 


AA 


02 


Bl 


BIN08 


AA 


02 


01 


BINIO 


AA 


02 


02 


BINll 


AA 


02 


E4 


BIN12 


AA 


02 


F4 


BIN055 


AA 


02 


B4 


BIN058 


AA 


02 


C4 


BIN065 


AA 


02 


C5 


BIN105 


AA 


02 


03 


BIN108 


AA 


02 


04 


BLKADD 


GA 


01 


B2 


BLKLOAD 


GA 


01 


01 


BN03B4 


AA 


03 


F3 


BOF 


EH 


01 


E3 


BOFBOV 


EH 


01 


03 


BOFBOV 


EI 


01 


01 


BOFl 


EI 


01 


E2 


BOV 


EH 


01 


E4 


BOV 


EI 


01 


PI 


BUFSD 


FB 


01 


E2 


BYTELOOP 


JQ 


01 


C3 


CALLDBGl 


JU 


01 


B4 


CALLD1D2 


JS 


01 


J3 


CALLS YM 


JA 


02 


Gl 


CANTPIND 


JW 


01 


G3 


CHECKIT 


JI 


01 


03 


CHECK IT 


JI 


01 


F4 


CHECKIT 


JI 


01 


B4 


CHKDMP 


EK 


01 


JI 


CHKNXT 


PH 


01 


J3 


CHKPOINT 


CA 


04 


A4 


CHKSEQ 


HC 


01 


B3 


CHKUSASI 


HJ 


01 


JI 



APPENOEX A: 


FLOWCHART 


LAI 


CHKWRAPT 


HJ 


01 


Gl 


CHKIST 


EI 


01 


02 


CKCODE 


JB 


01 


C2 


CLEANIT 


JR 


01 


03 


CLOSEFIL 


JI 


01 


B5 


CLOSEGIV 


CA 


03 


F2 


CLOSEIT 


■JI 


01 


02 


CLOSEIT 


JI 


01 


B5 


CL0SPRL6 


F 


03 


A4 


CNTRLRTN 


JU 


01 


A3 


C0B0BG2 


JC 


01 


G2 


COLLECT 


JK 


01 


B5 


COHCLOSE 


CA 


02 


E5 


COMCLOSE 


CA 


05 


G3 


COMPTR 


FH 


01 


02 


COMRTN 


CA 


05 


HI 


COMl 


HF 


01 


Dl 


CONSOL 


EC 


01 


02 


CONSOLE 


EB 


02 


B3 


CONTEXIT 


KB 


01 


HI 


CONTIOO 


KB 


01 


CI 


CONVRT 


EB 


01 


C4 


COUNTER 


HC 


01 


El 


CVBO 


AA 


01 


B2 


CVBl 


AA 


03 


B2 


CVB02 


AA 


01 


E2 


CVBO 3 


AA 


01 


C3 


CVB005 


AA 


01 


El 


CVB13 


AA 


03 


02 


CVB015 


AA 


01 


F4 


CVB021 


AA 


01 


F2 


CVBO 2 2 


AA 


01 


G2 


CVBO 2 5 


AA 


01 


El 


CVB035 


AA 


01 


03 


CVBOUT 


AA 


01 


G3 


C2128 


HH 


01 


H2 


OAMPOS 


JA 


01 


Bl 


OATEOAY 


CCB 


01 


F3 


OAY 


CCB 


01 


H4 


0EG6RET 


JE 


01 


01 


OEAO 


JC 


01 


A3 


OEC03 


AA 


03 


E5 


OEC04 


AA 


03 


G2 


OEC05 


AA 


03 


HI 


DECIO 


AA 


03 


J2 


0EC13 


AA 


03 


H3 


0EC16 


AA 


03 


K2 


DEC17 


AA 


03 


K3 


DEC089 


AA 


03 


H2 


OELPENO 


CBB 


02 


C2 


OELFLOBG 


CBB 


02 


A2 


OELFLUP 


CBB 


02 


C3 


OELIMBBG 


CBB 


02 


Al 


OELIMLUP 


CBB 


02 


Bl 


OEV2321 


HH 


01 


B4 


DEV3330 


HH 


01 


J3 


DIAGTEST 


JG 


01 


B5 


OIEXIT 


EA 


02 


C2 


01 LOOP 


EA 


02 


E3 


DISPOl 


EA 


01 


F3 


DIVIDE 


FA 


01 


A4 


OKTYPE 


EK 


01 


C4 


OMPBOl 


EA 


02 


CI 


00WITH14 


JW 


01 


H2 


DTFOA 


EH 


01 


J3 


DUMP 


JC 


01 


B3 
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DUMPFD 


JV 


01 


04 


DUMPIT 


JP 


01 


H2 


DUMPRD 


JV 


01 


D5 


DUMPSD 


JV 


01 


B5 


DUMPTGT 


JV 


01 


C2 


DUMPTGT 


JS 


01 


B2 


DYNCARD 


JM 


01 


G2 


EF 


EI 


01 


C5 


EJECTl 


JB 


01 


J2 


EJHEAD 


JB 


01 


J4 


ENDINIT 


JJ 


01 


D3 


EOF 


CA 


05 


G2 


EOF 


HG 


01 


G2 


EOF 


HD 


01 


D2 


EOF 


GFA 


01 


G5 


EOF 


EI 


01 


P3 


EOF 


EH 


01 


F2 


EOFIN 


JK 


01 


D2 


ERREXIT 


JX 


01 


D2 


ERROR 


JO 


01 


G5 


ERROR 


JN . 


01 


F5 


ERROR 


JL 


01 


E3 


ERROR 


JL 


01 


B3 


ERROR 


JL 


01 


K2 


ERROR 


JK 


01 


Al 


ERROR 


JK 


01 


CI 


ERROR 


HJ 


01 


F5 


ERROR 


HE 


01 


H4 


ERROR 


HD 


01 


G3 


ERRORl 


HF 


01 


E2 


ERRTN 


JB 


01 


B2 


EXHIB 


EA 


01 


F4 


EXIT 


JA 


02 


H3 


EXIT 


FH 


01 


E2 


EXIT 


FA 


02 


K3 


EXIT 


EH 


01 


K5 


EXIT 


CC 


01 


K2 


EXIT 


CCA 


01 


C3 


EXIT 


CCB 


01 


K3 


EXITl 


CC 


01 


Kl 


El 5 ROUT 


CA 


02 


A4 


E35ROUT 


CA 


03 


Al 


FETCH 


JP 


01 


H3 


FETCHPHS 


JJ 


01 


G2 


FGLST 


EJ 


01 


C3 


FILLDY 


JN 


01 


C4 


FIRSTIME 


FB 


01 


K2 


FORMAT 


HG 


01 


D2 


GC01A3 


CCA 


01 


G4 


GDOO 


CCA 


01 


B2 


GET 


GA 


01 


E5 


GETBLOCK 


CCC 


01 


A4 


GETEU4 


JL 


01 


D2 


GETNXT 


FH 


01 


F3 


GETPTR 


ED 


01 


El 


GETSPACE 


JR 


01 


B4 


GETSTATE 


JW 


01 


B4 


GIVECORE 


JQ 


01 


D2 


GIVING 


CA 


03 


El 


GOCOBOL 


CA 


02 


J5 


GOODBYTE 


JK 


01 


D5 


GOODRET 


JL 


01 


H3 


GOTCDVB 


JW 


01 


P4 


GOTPARM 


KC 


01 


Dl 


GOTPRID 


JR 


01 


Dl 


GOTSX 


JW 


01 


C4 


GTPXBLK 


JO 


01 


B4 


GT256 


CB 


01 


02 



HAVELEN 


JV 


01 


E2 


HEADERTN 


JU 


01 


C2 


HEADLINE 


JG 


01 


D4 


HEXDUMP 


JV 


01 


F2 


HEXDUMP 


JV 


01 


G4 


HEXDUMP 


JU 


01 


C5 


HEXDUMP 


JR 


01 


H3 


HEXDUMP 


JQ 


01 


A2 


HEXOUT 


JQ 


01 


F5 


HEXRTN 


JU 


01 


C5 


HIDDN 


FA 


04 


A4 


HPOS 


FA 


04 


A3 


H3330 


HH 


01 


Dl 


IBERR 


GA 


01 


P2 


IC1GT18 


HH 


01 


G4 


IC2GT198 


HH 


01 


G2 


IC2GT254 


HH 


01 


J4 


IC2GT8 


HH 


01 


E4 


IH1GT3 


HH 


01 


C4 


IH2GT8 


HH 


01 


D2 


IH2GT18 


HH 


01 


D3 


ILBDABXO 


FG 


01 


A4 


ILBDACPO 


EC 


01 


Al 


ILBDACSO 


CCD 


01 


Al 


ILBDACSl 


CCD 


01 


A3 


ILBDASYO 


EE 


01 


A3 


ILBDBUGO 


JY 


01 


Al 


ILBDCKPO 


CB 


01 


D4 


ILBDCKPO 


ED 


01 


Al 


ILBDCKPl 


EG 


01 


A2 


ILBDCKP2 


EG 


01 


A3 


ILBDCKP3 


EG 


01 


A4 


ILBDCLKO 


EG 


01 


A3 


ILBOCMMO 


CCC 


01 


Al 


ILBDCMMl 


CCC 


02 


Al 


ILBDCRDO 


HA 


01 


A3 


ILBDCTIO 


KB 


01 


Al 


ILBDCVBO 


AA 


01 


A2 


ILBDCVBl 


AA 


03 


A2 


ILBDDAEO 


HD 


01 


G3 


ILBDDAEO 


HE 


01 


H4 


ILBDDAEO 


HI 


01 


K4 


ILBDDAEO 


HJ 


01 


F5 


ILBDDAEO 


HK 


01 


A2 


ILBDDBGO 


JH 


01 


Bl 


ILBDDBGO 


JH 


01 


G5 


ILBDDBGO 


JP 


01 


J4 


ILBDDBGO 


JA 


01 


Al 


ILBDDBGO 


CC 


01 


G3 


ILBDDBGl 


JB 


01 


Al 


ILBDDBGl 


JW 


01 


H4 


ILBDDBGl 


JV 


01 


J5 


ILBDDBGl 


JV 


01 


F5 


ILBDDBGl 


JV 


01 


B5 


ILBDDBGl 


JV 


01 


E4 


ILBDDBGl 


JV 


01 


F3 


ILBDDBGl 


JU 


01 


B4 


ILBDDBGl 


JS 


01 


G4 


ILBDDBGl 


JR 


01 


Gl 


ILBDDBGl 


JQ 


01 


E4 


ILBDDBGl 


JK 


01 


D3 


ILBDDBGl 


JK 


01 


El 


ILBDDBGl 


JG 


01 


H4 


ILBDDBGl 


JG 


01 


J5 


ILBDDBGl 


JF 


01 


J2 


ILBDDBG2 


JH 


01 


G5 


ILBDDBG2 


JC 


01 


Al 


ILBDDBG3 


JC 


01 


A4 


ILBDDBG4 


JC 


01 


A5 


ILBDDBG5 


JD 


01 


Al 
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ILBDDBG6 


JE 


01 


Al 


ILBDDBG8 


JE 


01 


A3 


ILBDOIOO 


HI 


01 


Al 


ILBDDIOl 


HI 


01 


A2 


ILBDDI02 


HI 


01 


A3 


ILBDDI03 


HI 


01 


A4 


ILBDDI04 


HI 


01 


A5 


ILBODSRO 


HD 


01 


Al 


ILBDDTEO 


CCB 


01 


A2 


ILBDDTEl 


CCB 


01 


A3 


ILBDDTE2 


CCB 


01 


A4 


ILBDFLWO 


JG 


01 


Al 


ILBDFLWO 


JA 


01 


E4 


ILBDFLWl 


JG 


01 


A2 


ILBDFLW2 


JG 


01 


A4 


ILBDFLW2 


JW 


01 


K4 


ILBDFLW2 


JC 


01 


H5 


ILBDFLW3 


JG 


01 


A3 


ILBDFMTO 


HF 


01 


Al 


ILBDGDOO 


CCA 


01 


A2 


ILBDGDOl 


CCA 


01 


A4 


ILBDGD02 


CCA 


01 


A5 


ILBDIDAO 


HD 


01 


Gl 


ILBDIDAO 


HF 


01 


Gl 


ILBDIDAO 


HH 


01 


Al 


ILBDIMLO 


FD 


01 


A3 


ILBDIMSO 


CBC 


01 


Al 


ILBDISEO 


GB 


01 


Al 


ILBDISEl 


GB 


01 


A2 


ILBDISMO 


GA 


01 


Al 


ILBDISMl 


GA 


01 


A2 


ILBDISM2 


GA 


01 


A4 


ILBDISM3 


GA 


01 


A5 


ILBDMFTO 


FE 


01 


A2 


ILBDMOVO 


CB 


01 


A2 


ILBDMOVO 


EI 


01 


B3 


ILBDMOVO 


FA 


02 


C4 


ILBDMOVO 


FA 


02 


D3 


ILBDMOVO 


FA 


03 


G3 


ILBDMOVO 


FB 


01 


K2 


ILBDMPOl 


JI 


01 


A2 


ILBDMPOl 


JN 


01 


CI 


ILBDMPOl 


JN 


01 


G2 


ILBDMPOl 


JO 


01 


C2 


ILBDMPOl 


JO 


01 


F2 


ILBDMPOl 


JO 


01 


A4 


ILBDMPOl 


JO 


01 


C4 


ILBDMPOl 


JS 


01 


F2 


ILBDMPOl 


JT 


01 


Gl 


ILBDMP02 


JI 


01 


.A2 


ILBDMP02 


JN 


01 


CI 


ILBDMP02 


JN 


01 


G2 


ILBDMP02 


JO 


01 


C2 


ILBDMP02 


JO 


01 


F2 


ILBDMP02 


JO 


01 


A4 


ILBDMP02 


JO 


01 


C4 


ILBDMP02 


JS 


01 


F2 


ILBDMP04 


JX 


01 


Al 


ILBDMPIO 


JH 


01 


Dl 


ILBDMPIO 


JJ 


01 


A2 


ILBDMPIO 


JL 


01 


K3 


ILBDMPIO 


JM 


01 


H5 


ILBDMPIO 


JA 


02 


HI 


ILBDMPIO 


JA 


01 


D4 


ILBDMPIO 


JA 


01 


C2 


ILBDMPll 


JH 


01 


Fl 


ILBDMPll 


JJ 


01 


E2 


ILBDMPll 


JL 


01 


A2 



ILBDMP12 


JH 


01 


HI 


ILBDMP12 


JJ 


01 


G2 


ILBDMP12 


JM 


01 


A2 


ILBDMP12 


JN 


01 


K4 


ILBDMP13 


JH 


01 


Kl 


ILBDMP13 


JM 


01 


D5 


ILBDMP13 


JN 


01 


Al 


ILBDMP14 


JH 


01 


K2 


ILBDMP14 


JJ 


01 


H2 


ILBDMP14 


JO 


01 


A2 


ILBDMP20 


JH 


01 


A3 


ILBDMP20 


JJ 


01 


F4 


ILBDMP20 


JP 


01 


A2 


ILBDMP20 


JR 


01 


Kl 


ILBDMP20 


JR 


01 


E2 


ILBDMP20 


JR 


01 


K5 


ILBDMP20 


JS 


01 


E3 


ILBDMP20 


JS 


01 


B5 


ILBDMP20 


JW 


01 


B3 


ILBDMP20 


JW 


01 


K5 


ILBDMP20 


JC 


01 


J3 


ILBDMP20 


JA 


01 


D4 


ILBDMP20 


JA 


01 


C2 


ILBDMP21 


JH 


01 


D3 


ILBDMP21 


JH 


01 


B4 


ILBDMP21 


JP 


01 


F2 


ILBDMP21 


JP 


01 


H3 


ILBDMP21 


JR 


01 


Al 


ILBDMP22 


JH 


01 


F3 


ILBDMP22 


JP 


01 


H2 


ILBDMP22 


JS 


01 


Al 


ILBDMP22 


JT 


01 


Kl 


ILBDMP22 


JV 


01 


J2 


ILBDMP22 


JV 


01 


J4 


ILBDMP23 


JH 


01 


H4 


ILBDMP23 


JS 


01 


J2 


ILBDMP23 


JU 


01 


A2 


ILBDMP23 


JV 


01 


K4 


ILBDMP24 


JH 


01 


J3 


ILBDMP24 


JS 


01 


C2 


ILBDMP24 


JS 


01 


J3 


ILBDMP24 


JV 


01 


A2 


ILBDMP25 


JH 


01 


E3 


ILBDMP25 


JP 


01 


G2 


ILBDMP25 


JW 


01 


A2 


ILBDMRGO 


CA 


05 


Al 


ILBDMVEO 


FF 


01 


A3 


ILBDNSLO 


EI 


01 


Al 


ILBDNSL2 


EI 


01 


A2 


ILBDRCRO 


HB 


01 


A3 


ILBDRDIl 


HJ 


01 


A2 


ILBDRDSO 


HI 


01 


A2 


ILBDRFMO 


HH 


01 


A2 


ILBDOSYO 


EF 


01 


A2 


ILBDSAEO 


PC 


01 


A3 


ILBDSAEl 


FC 


01 


A4 


ILBDSEMO 


CC 


01 


Al 


ILBDSIOO 


F 


01 


A3 


ILBDSIOl 


F 


01 


Al 


ILBDSPAO 


FA 


01 


Al 


ILBDSPAl 


FA 


01 


A2 


ILBDSRTO 


CA 


01 


Al 


ILBDSSNO 


lA 


01 


Al 


ILBDSSMl 


lA 


01 


Fl 


ILBDSTGO 


CBA 


01 


Al 


ILBDSTNO 


JF 


01 


Al 


ILBDSTNO 


JC 


01 


K5 


ILBDTCOO 


KA 


01 


A2 


ILBDTC20 


KC 


01 


Al 
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ILBOTC30 


KD 


01 


Al 


ILBDUSLO 


EH 


01 


Al 


ILBDUSLl 


EH 


01 


A2 


ILBDUSL2 


EH 


01 


HI 


ILBDUSTO 


CBB 


01 


Al 


ILBDVBLO 


PA 


03 


D4 


ILBDVBLO 


PA 


01 


G5 


ILBDVBLO 


PB 


01 


Al 


ILBDXTNO 


HC 


01 


Al 


INCIH2 


HH 


01 


PI 


INCORE 


CC 


01 


HI 


INIT 


CC 


01 


J2 


INIT 


P 


01 


Bl 


INIT 


CCA 


01 


D5 


INITDYN 


JR 


01 


B5 


INITPLS 


CA 


05 


D3 


INITLOOP 


CA 


05 


D4 


INITLOOP 


P 


01 


El 


INIT60 


P 


01 


D2 


INITRTN 


CA 


05 


B2 


INPPINAL 


CA 


02 


J4 


INTG3 


PA 


04 


H3 


INTO 


HL 


01 


CI 


INT0002 


HL 


01 


Dl 


INVKEY 


GA 


01 


D2 


IPTRL 


EI 


01 


C4 


ISDMP2IN 


JS 


01 


C2 


ISITALL 


JQ 


01 


P4 


ISITALL 


JV 


01 


H3 


ISITHEX 


JM 


01 


B4 


ISITLAST 


JR 


01 


H5 


ISITNEW 


JR 


01 


CI 


ISITPX 


JW 


01 


D4 


ISQFOUND 


JN 


01 


D4 


LASTPRNT 


JG 


01 


P5 


LBRET 


EI 


01 


H5 


LBRET 


EH 


01 


H5 


LBRETl 


EH 


01 


J5 


LINELOOP 


JQ 


01 


E2 


LNBYPASS 


PA 


05 


D3 


LNINT 


PA 


05 


Gl 


LNPAGE 


PA 


05 


F2 


LNPOST 


PA 


05 


A3 


LN40 


PA 


05 


A2 


LOAD 


CA 


01 


D4 


LOAD 


JA 


02 


PI 


L0ADP2 


JJ 


01 


E4 


L00PDBG2 


JC 


01 


PI 


LPUBPTR 


PH 


01 


K3 


LTAFTER 


PA 


07 


Bl 


LTBEFORE 


PA 


07 


B2 


IMRCASE 


EC 


01 


G4 


LYASA 


PA 


06 


B5 


LYASCII 


PA 


06 


E4 


MAIN 


JA 


02 


CI 


MDCLOSE 


HM 


02 


Al 


MDCIOOO 


HM 


02 


Bl 


MDC1004 


HM 


02 


CI 


MDC1006 


HM 


02 


Dl 


MDC1008 


HM 


02 


El 


MDC1020 


HM 


02 


PI 


MDC1060 


HM 


02 


G3 


MDC1064 


HM 


02 


H2 


MDC3000 


HM 


02 


J2 


MDC3004 


HM 


02 


K2 


MDC3016 


HM 


02 


K4 



MDC3050 


HM 


02 


K5 


MDOPEN 


HM 


01 


Dl 


MDOIOOO 


HM 


01 


El 


MDO1002 


HM 


01 


P2 


MDO1004 


HM 


01 


HI 


MDO1006 


HM 


01 


J2 


MDO1008 


HM 


01 


H2 


MDO3000 


HM 


01 


B4 


MDO5002 


HM 


01 


E4 


MDO6000 


HM 


01 


A5 


MDO6004 


HM 


01 


B5 


MDO6016 


HM 


01 


C5 


MDO7000 


HM 


01 


E5 


MPTl 


PE 


01 


G2 


MPT2 


PE 


01 


H2 


MNEMONI 


FA 


01 


G2 


MNEMONIX 


FA 


01 


H2 


MNEM0N2 


PA 


02 


H5 


MORETOGO 


JN 


01 


B2 


MOVE 


CBB 


04 


Al 


MOVE 


JD 


01 


C3 


MOVE 


EI 


01 


B2 


MOVECORE 


CA 


01 


Gl 


MOVEKEY 


HD 


01 


E2 


MOVEl 


PA 


02 


D2 


MVCTLCHR 


FA 


02 


Gl 


MVTOBP 


EA 


02 


E4 


MVTOBP 


EB 


01 


G3 


NEWDNAME 


JN 


01 


H2 


NEWPILE 


JI 


01 


E2 


NEWLINE 


JQ 


01 


B2 


NEWPROG 


JR 


01 


D4 


NEXTCELL 


JV 


01 


D2 


NEXTDBG2 


JC 


01 


Kl 


NEXTENTRY 


JS 


01 


G2 


NLS5 


EI 


01 


G4 


NOCOB 


JA 


02 


B2 


NODUMP 


EK 


01 


Kl 


NOLTINT 


PA 


05 


PI 


NONLD 


JV 


01 


B3 


NOPDUMP 


JR 


01 


J3 


NOPROC 


EH 


01 


F4 


NOSEGM 


JA 


02 


D2 


NOSYM 


JA 


01 


E3 


NOSYM 


CA 


01 


C4 


NOTBOMB 


JR 


01 


El 


NOTDTPMT 


ED 


01 


HI 


NOTEND 


JQ 


01 


G3 


NOTPIRST 


JA 


01 


D2 


NOTPST 


CC 


01 


Bl 


NOTOPEN 


ED 


01 


C2 


NOTOUT 


JA 


01 


D3 


NOTSORT 


ED 


01 


E3 


NOTVASA 


PA 


03 


P2 


NSL4 


EI 


01 


A5 


NUMMOVE 


CBB 


04 


AS 


NXTCRD 


JL 


01 


E4 


NXTDATAB 


JN 


01 


D2 


NXTDY 


JO 


01 


J4 


NXTDYCRD 


JM 


01 


B5 


NXTENTRY 


JT 


01 


Al 


NXTENTRY 


JV 


01 


H3 


NXTEXIT 


JT , 
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OBOOORTN 


JU 
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D3 
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JI 
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JR 
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K4 
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EK 


01 


El 


OPCL 
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07 


J3 
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07 


A4 
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F 


07 


D4 
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F 


07 


F4 
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07 


H4 
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K4 
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A3 
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D3 
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EF 


01 
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G5 
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B2 
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EF 
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C2 
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C5 
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JB 
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E3 


OUTFINAL 


CA 


03 


Kl 
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FA 


01 


Kl 


PFLOW 


JC 
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G5 
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AA 
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J2 
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AA 


02 


J3 
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EH 


01 
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B4 
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E4 
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J5 
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01 


E4 


PUT 
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01 


K3 
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03 


H2 
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EB 


02 


Dl 
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CA 


03 


HI 


PWCLl 


PC 


01 


H3 
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CCB 


03 


F2 


RDEOF 
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04 


B4 


RD14 


HJ 


01 


C4 


READ 


CA 


02 


E4 


READ 


CA 
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Fl 


READ 
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JK 
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JM 
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J3 


READIPT 


JL 
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JL 
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D2 
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JK 
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READIPT 


JJ 


01 


D2 


READIT 


JI 


01 


C3 


READIT 


JI 


01 


H3 


READIT 


JI 


01 
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READLIB 


EI 


01 


JI 


READXX 
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04 


CI 


READ2 


JK 


01 


B2 


READ4 


JK 


01 


C3 
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CBB 


03 


Al 
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CBB 


03 


JI 
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FA 
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F4 
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JR 
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E3 
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K5 
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F4 
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B3 


RETURN 
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RETURN 


EH 
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B4 


RETURN 
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D3 


RETURN 


HC 


01 


H3 


RETURN 


HD 


01 
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RETURN 


HH 


01 
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RETURN 


FG 


01 


A2 


RETURN 
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01 


HI 


RETURNl 


EG 


01 


B2 


REWEOX 


P 


06 


B4 


REWRITE 
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05 
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REWRITEXX 


P 


05 


CI 
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H3 


ROOT 
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G2 
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FA 
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SEEKON 
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FA 
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JT 
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CBB 


04 


El 


SINGLEON 


JI 


01 


D4 


SIOTAB 


F 


01 


D3 


SIOO 


F 


01 


B3 
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JS 
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STOQNAME 


JM 


01 


J4 


STOREKEY 


HJ 


01 


HI 


SYM 


JA 


01 


C2 


SYMDMP 


JD 


01 


El 


SYMDMP 


JH 


01 


Al 


TAPEREC 


ED 


01 


J3 


TCERRRTN 


KC 


01 


C2 


TCSRET 


FA 


06 


F4 


TCOOEXIT 


KA 


01 


J2 


TC3EXIT 


KD 


01 


E2 


TESTCORE 


CA 


01 


PI 


TESTMODE 


CA 


01 


El 


TESTVAR 


CA 


03 


Gl 


TEXTCTL 


FA 


01 


C4 


TEXTOl 


FA 


01 


02 
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JA 


02 
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TIMER 


CCB 
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F2 


TRANS 
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H4 
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B3 
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EH 
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EK 
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B3 
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01 
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03 
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The words listed below are defined 
according to their use in this book, and 
the definitions are not necessarily 
applicable elsewhere. Efforts have been 
made to exclude terms which are corornon in 
the progrananing profession unless they are 
used in a special sense. 

Base Locator (BL) t A U-byte address cell 
in the TGT. There is one BL pointing to 
the Report Section* one to the 
Working- Storage Section, and one to each 
FD, SD, and RD entry. Any FD, SD, or RD 
entry exceeding ^rOSe bytes has one BL 
assigned to each (»,096 bytes. The compiler 
loads a register with each address unless 
there are too many BL*s. In that case, it 
loads registers with BL*s as they are 
needed. 

Base Locator for Linkage Section (BLL) ; A 
4-byte address cell in the TGT. BLL's are 
assigned by counter and are unique. BLLl 
points to a work area used to process label 
records. BLL2 through BLLn are assigned to 
each 77- level and each 01-level entry in 
the Linkage Section. Any 77- or 01-level 
entries exceeding i»,096 bytes have one BLL 
assigned per 4,096 bytes. 

BL ; See Base Locator. 

BLL: See Base Locator for Linkage Section. 

Count- block ; A set of COBOL verbs such 
that (exclusive of ABENDS) each verb in the 
block is executed if, and only if, the 
first verb is executed. 

Debug Text : A type of debugging text which 
contains card numbers, their displacement 
within the object module, the priority of 
each segment, and discontinuity elements. 

Dummy PN : A procedure-name, defined by the 
user, but not referenced in any branch 
instruction- 

Fragments : A portion of code having a 
maximum size of one less than 64K bytes 
(65,535). A fragment begins with the first 
byte of a verb and ends with the first byte 
of a verb preceding the verb with a final 
relative displacement greater than 6UK 
bytes. This unit is used in processing for 
the SYMDMP or STATE option. 

GN: See Procedure-name. 

Initialization Routines ; collectively, 
routines INITI, INIT2, and INIT3. These 
are generated by the compiler as part of 



the object module. 

Linkage ; As used in this book "linkage" is 
synonymous with "calling sequence." 

Major Code ; A '♦-bit code identifying the 
different types of DATATAB and CBODOTAB 
table entries. 

Master of an OCCURS Clause with the 
DEPENDING ON Option ; A data- name for a 
variable- length group item which does not 
itself contain an OCCURS clause with the 
DEPENDING ON option, but at least one of 
its subordinate items at the next level 
does contain an OCCURS clause with the 
DEPENDING ON option. 

Minor Code : A 4-bit code identifying the 
type of operand in the DATATAB table entry 
of an LD item. 

I Node : The beginning of a count-block. 

Object module : The result of a successful 
compilation. It is the output of a single 
execution of the compiler and is the input 
to the linkage editor. 

Optimizer (OPT) Option ; An option which 
directs the compiler to produce an object 
module, optimized for PN addressability and 
register usage. The resultant code uses 
Procedure Blocks to address procedure-names 
that are referenced in branch instructions. 
This option reduces the number of 
instructions required for branches. 

PGT: See Program Global Table. 

PN: See Procedure -name. 

Priority ; See segmentation. 

Procedure-name (GN, PN, or VN) : The name 
of a point in a program which can be the 
object of a branch instruction. PN*s are 
the user-assigned procedure-names which 
correspond to paragraph or section names in 
the Procedure Division of the source 
program. GN*s are compiler-generated and 
are inserted wherever a need for an 
additional name occurs. VN*s are variable 
names; that is, they may vary at execution 
time because of a PERFORM or ALTER 
statement. All procedure-names are unique 
since they include a number assigned by a 
counter (e.g., PNl, VN2, GNl, and GN2). 

Procedure Block : Unit of addressability in 
the object module where the optimizer (OPT) 
option is specified. Each Procedure Block 
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consists of approximately 4096 bytes of 
code. Most PN's and GN*s within a 
Procedure Block are addressed as 
displacements added to a base register 
which contains the address of the first 
instruction of the Procedure Block. 

Procrraro Global Table (PGT) ; A part of the 
object module- The PGT contains virtuals. 
literals, and addresses used during 
execution. 

Program unit ; Any COBOL main program or 
any COBOL subprogram. 

Q-routine ; One of a set of routines 
generated by Phase 22. Q- routines 
calculate the length of variable-length 
fields and the location of variably located 
fields resulting from an OCCURS clause with 
the DEPENDING ON option. 

Root Segment ! See Segmentation. 

SBL ; See Secondary Base Locator. 

Secondary Base Locator (SBL) t A U-byte 
address cell in the TGT. The compiler 
assigns a unique SBL, using a counter in 
COMMON, to each variably located field. At 
execution time, each SBL points to its 
field. Variably located fields are those 
which follow a variable-length field and 
which are not new files or records; they 
occur as a result of OCCURS. . .DEPENDING ON 
statements in the source program. If a 
variably located field exceeds U,096 bytes, 
the compiler assigns one SBL to each 1,096 
bytes. 

Section ; A series of source program 
procedure instructions grouped under the 
same section- name. 

Segment ; A section or a group of sections 
all having the same priority. 

Segmentation ; A special feature of the 
compiler which permits the programmer to 
organize his program into several load 



modules. Each section in the Procedure 
Division is assigned a priority ntimber. 
All sections having the same priority are 
loaded together as a segment. One of 
these, the root segment, resides In virtual 
storage throughout execution of the 
program. The other segments are loaded in 
order of the priority number, each segment 
overlaying the one before. 



Table t An area in virtual storage 
containing a number of entries of a fixed, 
often identical, format. 



Task Global Table (TGT) ; A part of the 
object module. The TGT contains 
information, addresses, and work areas for 
use during execution. 

TGT ; See Task Global Table (TGT). 

Transient area ; A portion of virtual 
storage reserved during execution time to 
contain segments which are not permanently 
resident. It contains one such segment at 
a time and is large enough to hold the 
largest nonresident segment in the program. 

UPSI ; User Program Status information. 
There are eight 1-blt UPSI switches 
provided by the DOS/VS system. The UPSI 
feature of this compiler provides the 
facility of naming and using these 
switches. 

Verb string ; A verb and its operands. 

Virtual ; The name of a procedure or table 
referenced by a procedure, but not defined 
in the source module. It is necessary 
because of a CALL to an external procedure 
or a branch to a COBOL library subroutine. 
At execution time, the address of all 
procedures referred to by virtuals (which 
have been link edited into the load module) 
are stored in the Program Global Table. 

VN: See Procedure-name. 
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SYMDMP program operation 52 
ACCEPT statement subroutine 
described 34 
flowchart 89 
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described 27 
ALTIJK option (SORT-OPTION parameter) 

described 23 
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program** subroutine for 
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described 14-16 
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CALL FIND subroutine described 53-54 
calls to subroutines* phases 

generating 10 
CALL1D2 (SYMDMP option program) 

subroutine 56 
CARINDX table 

contents 169 

debug file location 

SYMDMP usage 188 
characters* moving* subroutine for 

described 26 

flowchart 83 
checkpoint subroutine 

described 34 

flowchart 90 
class test subroutine 
described 32.2-32.3 
Close Debug File Routine (ILBDDBG8) 

described 47 

flov<Jchart 134 
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UNIT (direct access) 

absolute address 40»113 
relative track 40»114 
VSAM 

described 43 
flowchart 125 
WITH LOCK 

described 35 

flowchart 93 

COBOL object program 184 

COBOL object-time library 

summarized 9 
common data ar&a (SYMDMP 

program) 48,159-160 
compare subroutine 
described 32.3 
compare figurative constant 
subrouti ne 

described 32.3 
comparison with alternate collating 
sequence subroutine 
described 32.4 
flowchart 84.15 
core image library, subroutines 

stored in 9 
COUNT chain 

described 180 
location 179 
summarized 60 
use in operations 77 
count common area 

described 180-181 
location 179 
COUNT option, code for in ILBDDBGO 

linkage 45 
COUNT option subroutines (see object- 
time execution statistics 
subroutines) 
described 179 
location 184 
summarized 58 
use in operations 78 
count-block described 58-59,195 
CURRENT-DATE subroutine described 31 
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DA subroutines (see direct access 

data management subroutines) 
data, finding location of 187 
data areas 159-177 
data management subroutines (see 
under direct access data management 
subroutines, general data management 
subroutines, indexed sequential 
access data management subroutines, 
sequential access data management 
subroutines, or VSAM data management 
subroutines) 
data manipulation subroutines (cited 
here by functi-on; otherwise, use 
individual subroutine names for 
reference elsewhere) 
alphanumeric edit 27 
DATE, DAY, and TIME subroutine 
described 32.1-3.2 
flowchart 84.12 
DAY subroutine (see DATE, DAY, and 

TIME subroutine) 
dummy sort 26 



GO TO DEPENDING ON subroutine 
described 32.1 
flowchart 84.11 
INSPECT subroutine 
described 31 
flowchart 84.6-84.9 
MERGE function 

described 18-26 
flowchart 80-82 
linkage 26 
parameter list 21 
MOVE figurative constant 27 
MOVE to right-justified field 

(System/370) 27 
moving characters 
described 26 
flowchart 83 
moving unusual operands 26 
SEARCH function 32 
segmentation 

described 32-32.1 
flowchart 84.10 
SORT function 

described 17-26 
flowchart 80-82 
GIVING option 17-18 
INPUT PROCEDURE 17-18 
linkage 25 

OUTPUT PROCEDURE 17-18 
parameter list 20 
RELEASE statement 18 
USING option 17 
STRING subroutine 
described 28 
flowchart 84-84.1 
transform function 27 
TIME subroutine (see DATE, DAY, and 

TIME subroutine) 
UNSTRING subroutine 
described 28-31 
flowchart 84.2-84.5 
DATADIR table 
contents 171 
debug file location 161 
described 49 
use BY SYMDMP option 
subroutines 54,188 
DATATAB table 

contents 165-168 
debug file location 161 
use by SYMDMP option 
subroutines 188 
DATE, DAY, and TIME subroutine 
described 32.1-32.2 
flowchart 84.12 
DAY subroutine (see DATE, DAY, and 

TIME subroutine) 
DBGOCOM (debug common 

area) 48,159-160 
debug common area 48,159-160 
debug control routines 
described 45-47 
flowcharts 129-134 
debug file 

contents 161 
described 49 

relationship to object-time tables 
(diagrams) 73-75 
debug options (for general references, 
see diagnostic aid subroutines; for 
detailed references, see flow trace 
option subbroutine, statement number 
option subroutine, or SYMDMP option 
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program) 
debug text defined 195 
debugging (object-time subroutines 
(for general references* see 
diagnostic aid subroutines; for 
detailed references* see floN trace 
option subroutine* statement number 
option subroutine* or SYMPDMP option 
program) 
decimal division subroutine 16.1 
decimal to binary subroutine 
described l<t-16 
flowchart 80-80.2 
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subrouti ne 16.1 
decimal multiplication 

subroutine 16.1 
diagnostic aid subroutines 

abnormal terminations flow of 

control 67 
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control routines 
described 45-47 
flowcharts 129-134 
diagnostic aid for 188 
diagrams 65-76 
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detailed references* see flow 
trace option subroutine) 
described 47 
flowchart 137 
initialization flow of control 66 
statement number option (for more 
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number option subroutine) 
described 47 
flowchart 135 
summarized 45,47 
symbolic dump option (see SYMDMP 

option program) 
use-f or-debuggi ng subroutine 
described 57 
flowchart 154.1-154.2 
diagnostic aids 

debugging subroutines 187-188 
program operations 184-187 
summarised 183 
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execution-time 184 
preparation subroutine 
described 35 
flowchart 96 
printing subroutine 
described 36 
flowchart 97 
SYMDMP message subroutine 
described 36 
flowchart 98 
direct access data management 
subroutines (listed here by function; 
otherwise* use individual subroutine 
name for reference elsewhere) 
CLOSE UNIT statement 

absolute address 40*113 
relative track 40*114 
error 

described 42 
flowchart 123 
extent processing 
described 41 
flowchart 115 
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described 42 
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READ* WRITE statements 
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relative track 42*122 
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absolute address 41*118 
relative track 42*119 
sequential READ 

absolute address 41*116 
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DISPLAY statement subroutine 
described 32.6-33 
flowchart 85-86 
division* decimal* subroutine for 

described 16 
DMPCNTRL (SYMDMP option program) 
subroutine 

described 55 
flowchart 149-150 
DOS/VS COBOL program* subroutine for 
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DTP control block structure 38.1-38.2 
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dummy Sort subroutine described 26 
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dump control subroutines (SYMDMP 
opti on) 

described 55-56 
flowchart 149-150 
dump formatting subroutines (SYMDMP 
option) 

described 56 
flowchart 151-152 
DUMPl (SYMDMP option program) 
described 56 
flowchart 151 
DUMP2 (SYMDMP option program) 
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flowchart 152 
dynamic dump contents 47 
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subrouti ne 

described 46 
flowchart 133 
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error-detecting subroutines 
direct access 
described 42 
flowchart 123 
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described 39-40 
flowchart 111 
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described 38.3 
flowchart 104 
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Indexed sequential access 
described 39'40 
floMchart 111 
sequential access 
described 38.3 
flowchart 104 
error messages (see diagnostic 
messages) 
Error subroutine (SYMOMP option 

program) 54 
execution statistics (see object-time 

execution statistics subroutines) 
execution-time debugging (for general 
references* see diagnostic aid 
subroutines; for detailed references* 
see floM trace option subroutine* 
statement number option subroutine* 
or SYMDMP option subroutine) 
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exponentiation subroutines 
decimal fixed-point 16 
floating-point 17 
extent processing (DA) subroutine 
described 41 
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floating-point conversion 
subroutine 13 
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subroutine 16-16.1 
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FCB (VSAM file information 

contents 177-178 
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figurative constant 

compare subroutine 30 
MOVE subroutine 27 
file control block (VSAM) 

contents 177-178 
file information block (VSAM) 
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FINDLOCS subroutine (SYMDMP option 
program) 

described 55 
flowchart 145 
FINONAMS subroutine (SYMDMP option 
program) 

described 54-55 
flowchart 144 
floating-point exponentiation 

subroutines 17 
flow trace option subroutine 
description 48 
flowchart 137 
function summarized 9 
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fragment defined 195 
freecore subroutine 
described 32.2 
flowchart 84.14 
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general data management subroutines 
(listed here by function* otherwise* 
use individual subroutine name for 
reference elsewhere) 
ACCEPT statement 
described 34 
flowchart 89 
checkpoint 

described 34 
flowchart 90 
CLOSE i4ITH LOCK statement 
described 35 
flowchart 93 
DISPLAY statement 

described 32.6-33 
flowchart 85-86 
error message 

preparation 35*96 
printing 36*97 
nonstandard labels 
described 35 
flowchart 95 
OPEN ACCEPT file 
described 35 
flowchart 91 
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described 35 
flowchart 92 
optimizer DISPLAY 
described 33 
flowchart 87 
SYMDMP error message 
described 36 
flowchart 98 
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described 35 
flowchart 94 
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described 36 
flowchart 99 
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described 32.2 
flowchart 84.13 
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defined 195 
GO TO DEPENDING ON subroutine 
described 32.1 
flowchart 84.11 
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described 39 
flowchart 107 
ILBDACPO (ACCEPT statement) 
subroutine 

described 34 
flowchart 89 
ILBDACSO (comparison with alternate 
collating sequence) subroutine 
described 32.4 
flowchart B4.15 
ILBDAORO (SYMDMP address test) 

subroutine 32.5-32.6 
ILBDANEO (alphanumeric edit) 

subroutine 27 
ILBDANFO (MOVE figurative constant) 

subroutine 27 
ILBDASYO (OPEN ACCEPT file) subroutine 
described 35 
flowchart 91 
ILBDBIDO (binary to internal decimal 

conversion) subroutine 12 
ILBDBIEO (binary to external decimal 

conversion) subroutine 12 
ILBDBIIO (binary to internal 
floating-point conversion) 
subroutine 13 
ILBDBUGO (use-for-debugging 
subroutine) 
described 57 
flowchart 154.1-154.2 
ILBDCKPO (checkpoint) subroutine 
described 34 
flowchart 90 
ILBDCLKO (CLOSE MITH LOCK statement) 
subroutine 
described 35 
flowchart 93 
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subroutine 32.2-32.3 
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described 32.2 
flowchart 84.13 
ILBDCMMl (freecore subroutine) 
described 32.2 
flowchart 84.14 
ILBDCRDO (DA close unit with absolute 
addressing) subroutine 
described 40 
flowchart 113 
ILBDCTIO (COUNT frequency subroutine) 
described 59 
flowchart 156 
operation diagram 77 
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subroutine) 

described 14-16 
flowchart 80-80.2 
ILBDCVBl (binary to decimal 
subroutine) 

described 14-16 
flowchart 80-80.2 
ILBDDAEO (DA error) subroutine 
described 42 
flowchart 123 
ILBDDBGO (diagnostic aid TEST) 
subroutine 

described 45 
flowchart 129 
ILBDDB61 (diagnostic aid PRINT) 
subroutine 

described 45-46 
flowchart 131 
ILBDDBG2 (diagnostic aid STIXIT) 



subroutine 
described 46 
flowchart 132 
ILBDDBG3 (diagnostic aid TGT address) 
subroutine 

described 46 
flowchart 132 
ILBDDBG4 (diagnostic aid save register 
14) subroutine 
described 46 
flowchart 132 
ILBD0BG5 (diagnostic aid dynamic dump) 
subroutine 

described 46 
flowchart 133 
ILBDDBG6 (diagnostic aid Range) 
subroutine 

described 47 
flowchart 134 
ILBDDBG7 (debug common 

area) 48,159-160 
ILB00BG8 (close debug file) subroutine 
described 47 
flowchart 134 
ILBDDCIO (internal and external 
decimal to internal floating-point 
conversion) subroutine 13 
ILBDDIOO (DA READ and MRITE) 
subroutine 

described 42 
flowchart 121 
ILBDDSPO (DISPLAY statement) 
subroutine 

described 32.6-33 
flowchart 85 
ILBDDSRO (DA sequential read with 
absolute addressing) subroutine 
described 41 
flowchart 116 
ILBDDSSO (optimizer DISPLAY) 
subroutine 

described 33 
flowchart 87 
ILBDDTEO (date subroutine) 
described 32.1-32.2 
flowchart 84.12 
ILBDDTEl (day subroutine) 
described 32.1-32.2 
flowchart 84.12 
ILBDDTE2 (time subroutine) 
described 32.1-32.2 
flowchart 84.12 
ILBDDUMO (dummy Sort) subroutine 26 
ILBDEFLO (external floating-point to 
internal floating-point conversion) 
subroutine 16-16.1 
ILBDFLUO (diagnostic aid flow trace) 
subroutine 

described 48 
flowchart 137 
ILBDFMTO (DA RZERO record for absolute 
addressing) subroutine 
described 41 
flowchart 118 
ILBDFPMO (floating-point 
exponentiation to noninteger 
exponent) subroutine 17 
ILBDGDOO (GO TO DEPENDING ON) f 

subroutine 32.1 
ILBDIDAO (DA increase SEEK address) 
subroutine 

described 42 
flowchart 120 
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ILBDIDBO (internal and external 
decimal to binary conversion) 
subroutine 14 
ILBDIFBO (internal floating-point 

to binary conversion) subroutine 13 
ILBOIFDO (internal floating-point to 
internal decimal conversion) 
subroutine 14 
ILBDIMLO (SA tape pointer) subroutine 
described 38.3 
floMchart 105 
ILBOINSO (inspect subroutine) 
described 31 
flowchart 84. 6-84. 9 
ILBDINTO (VSAM initialization) 
subroutine 

described 43 
flowchart 124 
ILBOISEO (ISAM error) subroutine 
described 39-40 
flowchart 111 
ILBDISMO (ISAM READ and MRITE) 
subroutine 
described 39 
flowchart 110 
ILBDIVLO (compare figurative 

constant) subroutine described 32.3 
ILBOMFTO (SA position multiple file 
tape) subroutine 

described 38.3-38.4 
flowchart 106 
ILBDMNSO (program indicator) 

subroutine described 32.4-32.5 
ILBDMOVO (moving characters) 
subroutine 

described 26 
flowchart 83 
ILBDMPOl (SYMDMP option routine for 
disk I/O) 

described 53 
flowchart 139 
ILBDMP02 (SYMDMP option routine for 
tape I/O) 

described 53 
flowchart 139 
ILBDMP04 (SYMDMP option PUBS table 
search) subroutine 
described 57 
flowchart 154 
ILBDMPIO (SYMDMP option 
initialization) subroutine 
described 53 
flowchart 140-141 
ILBDMPll (SYMDMP option scan program 
control card) subroutine 
described 54 
flowchart 142 
ILBDMP12 (SYMDMP option scan line- 
control card) subroutine 
described 54 
flowchart 143 
ILBDNP13 (SYMDMP search DATADIR table) 
subroutine 

described 54 
flowchart 144 
ILBDMP14 (SYMDMP option search PROCTAB 
table) subroutine 
described 55 
flowchart 145 
ILBDMP20 (SYMDMP option Pass 2 control 
subroutine 

described 55 
flowchart 146-147 
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initialization) subroutine 
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flowchart 148 
ILBDMP22 (SYMDMP option dump control) 
subroutine 
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flowchart 149-150 
ILBDMP23 (SYMDMP option dump 
formatting) subroutine 
described 56 
flowchart 151 
ILBDMP24 (SYMDMP option dump 
formatting) subroutine 
described 56 
flowchart 152 
ILBDMP25 (SYMDMP option statement 
number message) subroutine 
described 57 
flowchart 153 
ILBDMRGO (MERGE) subroutine 
described 18-26 
flowchart 80-82 
GIVING option, effect of 26 
linkage to 26 
logic flow for merging 

(diagram) 64 
parameters 20-25 
ILBDMVEO (SA test tape file) 
subroutine 

described 38.4-39 
flowchart 107 
ILBDMXUO (decimal multiplication) 

subroutine 16.1 
ILBDNSLO (nonstandard labels) 
subroutine 

described 35 
flowchart 95 
ILBDOCRO (3886 Optical Character 
Reader) subroutine 
described 36 
flowchart 99 
ILBDOSYO (OPEN DISPLAY file) 
subroutine 

described 35 
flowchart 92 
ILBDGPUO (floating-point 
exponentiation to integer exponent) 
subroutine 17 
ILBDRCRO (DA close unit for relative 
track) subroutine 
described 40 
flowchart 114 
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relative track) subroutine 
described 42 
flowchart 122 
ILBDRDSO (DA sequential READ for 
relative track) subroutine 
described 41 
flowchart 117 
ILBDRFMO (DA RZERO record with 
relative track) subroutine 
described 41 
flowchart 119 
ILBDSAEO (SA error) subroutine 
described 38.3 
flowchart 104 
ILBDSCHO (SEARCH) subroutine 32 
ILBDSEMO (segmentation) subroutine 
described 32-32.1 
flowchart 84.10 
ILBDSETO (linkage) subroutine 32.4 
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ILBDSIOO (SAM I/O subroutine) 
described 37-38.2 
flowchart 100-100.9 
ILBD5MV0 (MOVE to right-justified 

field for System/370) subroutine 27 
ILBDSPAO (SA printer spacing) 
subroutine 

described 37 
flowchart 100-102 
ILBDSRTO (SORT) subroutine 
described 17-26 
flowchart 80-82 
GIVING option and 17»26 
INPUT PROCEDURE and 17-18 
linkage 25 
logic flow 

merging 64 
sorting 63 
OUTPUT PROCEDURE and 17-18 
parameters 20-25 
RELEASE statement and 18 
USING option card and 17 
ILBDSSNO (separately signed numeric 
ASCII support) subroutine 
described 44 
flowchart 128 
ILBDSTGO (string subroutine) 
described 28 
flowchart 84-84.1 
ILBDSTNO (statement number option 
subroutine 

described 47 
flowchart 135 
ILBDSTRO (ISAM START) subroutine 
described 40 
flowchart 112 
ILBDTCOO (COUNT initialization 
subroutine) 

calling dependencies 68>69 
described 59 
flowchart 155 
operation diagrams 
overall 77 
relationship to debug 
routines 66 
ILBDTC20 (COUNT termination 
subroutine) 

calling dependencies 68»69 
described 60 
flowchart 157 
operation diagrams 
overall 77 
relationship to debug 
routines 67 
ILBDTC30 (COUNT print subroutine) 
calling dependencies 69»70 
described 60 
flowchart 158 
operation diagrams 
overall 77 
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routines 67 
ILBDTEFO (all numeric forms to 
external floating-point conversion) 
subroutine 15 
ILBDTODO (TIME-OF-DAY and 

CURRENT-DATE) subroutine 32.5 
ILBDUPSO (UPSI) subroutine 32.4 
ILBOUSLO (user standard labels) 
subroutine 

described 35 
flowchart 94 
ILBDUSTO (unstring subroutine) 



described 28-31 
flowchart 84.2-84.5 
ILBDVBLO (SA variable-length record 
output) subroutine 
described 38.3 
flowchart 103 
ILBDVCOO (compare subroutine 32.3 
ILBDVIOO (VSAM action request) 
subroutine 

described 43-44 
flowchart 127 
ILBDVMOO (move with unusual 

operands) subroutine 26 
ILBDVOCO (VSAM open and close) 
subroutine 
described 43 
flowchart 125 
ILBDVTRO (transform) subroutine 27 
ILBDXDIO (decimal division) 

subroutine 16.1 
ILBDXPRO (decimal fixed point 

exponentiation subroutine) 16.1 
ILBDXTNO (DA extent processing) 
subroutine 

described 41 
flowchart 115 
indexed sequential access data 
management subroutines (listed 
here by function; otherwise* use 
individual subroutine names 
for reference elsewhere) 
error 

described 39-40 
flowchart 111 
READ and URITE 
described 39 
flowchart 110 
START 

described 40 
flowchart 112 
indicator* program* 
subroutine for 31 
initialization routine defined 195 
INITl* INIT2* INIT3 routines 
defined 195 

virtual storage location 186 
INPUT PROCEDURE and SORT 
operation 17-18 
input/output subroutines (see 
under direct access data 
management subroutines* general 
data management subroutines* 
indexed sequential access data 
management subroutines* sequential 
access data management subroutines* 
or VSAM data management 
subroutines) 
INSPECT subroutine 
described 31 
flowchart 84.6-84.9 
internal decimal to binary 
conversion subroutine 14 
internal decimal to internal 
floating-point 
conversion subroutine 13 
internal floating-point to binary 
conversion subroutine 12 
internal floating-point to decimal 
conversion subroutine 14 
lODISK (SYMDMP option) subroutine 
described 53 
flowchart 139 
lOTAPE (SYMDMP option) subroutine 
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described 53 

flowchart 139 
ISAM subroutines (see under indexed 
sequential access data management 
subroutines) 
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label directory^ floMchart 189 
LABEL option (SORT-OPTION parameter) 

described 22 
label subroutines 
nonstandard 

described 35 
flowchart 95 
standard user 
described 35 
flowchart 94 
library contents 9 

library management subroutines (cited 
here by function; otherwise use 
individual subroutine name for 
reference elsewhere) 

GETCORE/FREECORE subroutine 
described 32.2 
flowchart 84. 13-84. 14 
library subroutines summarized 9 
line-control card and SYMDMP option 

program 54 
linkage 

defined 195 

subroutine described 32.4 
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major code defined 195 

master (OCCURS. . .DEPENDING ON clause) 

defined 195 
MERGE function subroutines 
described 18-26 
flowchart 80-82 
GIVING option and 26 
linkage to 26 
logic flow for merging 
(diagram) 64 
messages^ error » subroutines for (see 

diagnostic messages) 
messages^ execution-time 184 
minor code defined 195 
MOVE figurative constant subroutine 

described 27 
MOVE to right-justified field for 

System/370 subroutine 27 
move (unusual operands) subroutine 26 
moving characters subroutine 26 
described 26 
flowchart 83 
multiple file tape» subroutine for 
positioning on 
described 38 
flowchart 106 
multiplication^ decimal* subroutine 
for 16 



node described 58»195 
node count table 
described 180 
location 179 
summarized 60 
use in operations 78 
nonstandard labels subroutine 
described 35 
flowchart 95 
numbert statement* option for (see 

flow trace subroutine) 
numeric (all) to external floating- 
point conversion subroutine 
described 15 
NXTENTRY (SYMDMP option) 
subroutine 56 
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object module defined 195 
object programs* COBOL 
phase map 187 
storage layout 186 
object-time debugging subroutines (for 
general reference* see diagnostic aid 
subroutines; for detailed references* 
see flow trace option subroutine* 
statement number option subroutine* 
or SYMDMP option subroutines) 
object-time execution statistics 
subroutines 

calling dependencies 68-71 
count frequency subroutine 
(ILBDCTIO) 

described 59 
flowchart 156 
operation diagram 77 
data areas 

described 179-181 
summarized 58 

use in COUNT option operations 
(diagrams) 77*78 
diagrams 

overall 77 
relationship to debug 

routines 66*67 
use of tables to produce object- 
time execution statistics 78 
initialization subroutine 
(ILBDTCOO) 

calling dependencies 68*69 
described 59 
flowchart 155 
operation diagrams 66*77 
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operations summarized 58-59 
print subroutine (ILBDTC30) 
calling dependencies 68-70 
described 60 
flowchart 158 

operation diagrams 67*77*78 
relationship to debug 

subroutines 58*66*67 
termination subroutine (ILBDTC20) 
calling dependencies 68*69 
described 60 
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flowchart 157 
operation diagrams 67»72 
OBODOTAB table 

contents 163 

debug file location 161 
OPEN ACCEPT file subroutine 

described 35 

flowchart 91 
OPEN DISPLAY file subroutine 

described 35 

flowchart 92 
OPEN statement subroutine (VSAM) 

described 43 

flowchart 125 
Optical Character Reader (38B6) 
subroutine 

described 36 

flowchart 99 
optimizer DISPLAY subroutine 

described 33 

flowchart 87 
optimizer (OPT) option defined 195 
OUTPUT PROCEDURE and Sort/Merge 
operations 17-'18i26 
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conventions for conversion 

subroutines 12 
how passed 10 
Sort/Merge program 19-21 
Pass 1 (SYMDMP option program) 
function summarized 48 
modules listed 50 
Pass 2 (SYMDMP option program) 
control processing 
described 55 
flowchart 146-147 
function summarized 48 
initialization routine 
described 55 
flowchart 148 
modules listed 50 
PCONTROL table 
contents 173 
described 49 
PGT (program global table) 

defined 196 
phase map for COBOL object 

program 187 
phases generating calls to 

subroutines 10 
physical and environmental 
characteristics of COBOL object-time 
library 9 
PN (source program procedure-name) 

defined 195 
pre-DFT control block 

structure 37-38.2 
PRINT option (SORT-OPTION parameter) 

described 22 
PRINT (diagnostic aid) subroutine 
described 45-46 
flowchart 131 
printer* SA spacing subroutine for 
described 38.2-38.3 
flowchart 100.10-102 
priority defined 196 
procedure block defined 195-196 



procedure-name defined 195 
PROCINDX table 

contents 170 

debug file location 161 
PROCTAB table 

contents 169 

debug file location 161 
program-control card» SYMDMP option 

program action on 54 
program global table defined 196 
program indicator subroutine 

described 32.4-32.5 
program modification (SYMDMP option 

program) described 49-50 
PROGSUM table 

contents 162 

debug file location 161 
PUBS table search subroutine (SYMDMP 
option program) 

described 57 

flowchart 154 
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Range (diagnostic aid) subroutine 
described 47 
flowchart 134 
READ statement subroutines 
direct access 41 » 111 
ISAM 

described 39 
flowchart 110 
sequential direct access 

absolute address 41 » 116 
relative track 41.117 
reader* 3886 optical character* 
subroutine for 
described 36 
flowchart 99 
READIPT (SYMDMP option program) 

subroutine 54 
record* SA variable-length output* 
subroutine for 
described 38 
flowchart 103 
RELEASE statement affect on ILBDSRTO 

(SORT operation) subroutine 18 
relocatable library* subroutine stored 

in 9 
right-justified field* move to for 

System/370* subroutine 27 
root segment defined 196 
ROUTE option sort-OPTION parameter) 

described 24 
RZERO record (DA) subroutines 
absolute track 
described 41 
flowchart 118 
relative track 
described 41 
flowchart 119 
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SA subroutines (see sequential access 

data management subroutines) 
SAM I/O subroutine 
described 37-3S.2 
flowchart 100-100.9 
save register 14 (diagnostic aid) 
subroutine 

described 46 
floMchart 132 
SBL (secondary base locator) 

defined 196 
SCAND (SYMDMP option program) 
subroutine 

described 54 
flowchart 143 
SCANP (SYMDMP option program) 
subroutine 

described 54 
flowchart 142 
SEARCH subroutine described 32 
secondary base locator (SBL) 

defined 196 
section defined 196 
SEEK statement: OA increase address 
subroutine 

described 42 
flowchart 120 
SE6INDX table 
contents 170 
debug file location 161 
SEGINIT (SYMDMP option program) 
subroutine 

described 55 
flowchart 148 
segment defined 196 
segmentation defined 196 
segmentation subroutine 
described 32-32.1 
flowchart 84.10 
separately signed numeric subroutine 
(ASCII support) 
described 44 
flowchart 128 
sequential access data management 
subroutines (listed here by function; 
otherwise^ use individula subroutine 
name for reference elsewhere) 
error 

described 38.3 
flowchart 104 
I/O 

described 37-38.2 
flowchart 100-100.9 
position multiple file tape 
described 38.3-38.4 
flowchart 106 
printer spacing 

described 38.2-38.3 
flowchart 100.10-102 
reposition tape 
described 39 
flowchart 109 
STXIT macro instruction 
described 39 
flowchart 108 
tape pointer 

described 38.3 
flowchart 105 
test tape file 



described 38.4-39 
flowchart 107 
variable-length record output 
described 38.3 
flowchart 103 
XDTF, pre-DTF» and DTP control 
block structure 38.1-38.2 
SORT* dummy > subroutine 26 
SORT function subroutine (see ILBDSRTO 

(SORT) subroutine 
SORTWK option (SORT-OPTION parameter) 

described 24 
SORT-OPTION parameters 
described 22-24 
position in parameter list 
MERGE 21 
SORT 20 
Sort/Merge program (system) 
logic flow in 

sorting/merging 63*64 
object-time subroutines and 17-26 
parameters passed 19-21 
SRCHPUBS (SYMDMP option program) 
subroutine 

described 57 
flowchart 154 
standard labels* user* subroutine for 
described 35 
flowchart 94 
statement number option subroutines 
STATE option 

action summarized 9 
described 47 
flowchart 135 
SYMDMP option message 
described 57 
flowchart 153 
START statement (ISAM) subroutine 
described 40 
flowchart 112 
STIXIT macro instruction subroutines 
object-time debugging 
described 46 
flowchart 132 
sequential access data management 
described 39 
flowchart 108 
storage layout of COBOL object 

program 186 
STORAGE option (SORT-OPTION parameter) 

described 23 
STRING subroutine 
described 28 
flowchart 84-84.1 
subroutine library contents 

summarized 9 
symbolic dump option subroutines (see 

SYMDMP option program) 
SYMCNTRL (SYMDMP option program) 
subroutine 

described 55 
flowchart 146-147 
SYMDMP address test subroutine 

described 32.5-32.6 
SYMDMP option program (subroutines ar9 
listed here by function; otherwise* 
use individual subroutine name for 
reference elsewhere) 

abnormal termination 52-53 
action summarized 9 
CARDINDX table 
contents 169 
debug file location 161 
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control card processing 

cards described 49 
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number processing 75 

object-time tables related to 
debug file 73 
core image library* in 9 
DATADIR table 

contents 171 

debug file location 161 

described 49 

use 54*188 
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